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I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 
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■PROGRAMMI DI STATISTICA cod. 
015H 
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-ASSEMBLER 6502 cod. 013H 
-COBOL cod. 001H 
■FORTRAN 77 cod. 010H 
-PASCAL cod. 006H 
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Crimini informatici 



S i parla spesso dei benefici apportati alla collettività dalla 

continua crescita telematica. Sono sicuramente rilevanti e ne 
abbiamo più volte messo in luce portata e conseguenze. 

Occorre però esaminare anche l’altra faccia della medaglia, e 
cioè cosa succede quando avvengono usi illeciti degli strumenti che la 
tecnologia mette a disposizione. 

Infatti i casi di “crimini informatici” stanno avendo un peso non 
irrilevante in ambiente giudiziario ed è logico che si cerchi di studiare 
sistemi idonei a ridurne la nocività. 

L’uso illegale dei calcolatori viene normalmente effettuato in ambiente 
bancario o comunque finanziario per accreditare fondi su conti correnti 
o direttamente “liquidi” in modo abusivo. 

Alcuni casi clamorosi, come il colpo realizzato da una banda che 
falsificando le opportune tessere magnetiche è riuscita a fare incetta di 
denaro contante agli sportelli bancari automatici, sono stati ripresi con 
grande evidenza dagli organi di stampa. 

Ma anche i colpi messi a segno presso banche e grandi aziende da 
impiegati e programmatori infedeli che, grazie al proprio terminale, 
sono riusciti ad intascare cifre considerevoli rappresentano un 
campanello d’allarme. 

La percentuale di crimini di questo tipo, che vengono scoperti e puniti è 
bassissima. Si calcola che negli Stati Uniti si aggiri intorno ad un 
irrisorio t%, e questo non per negligenza nelle indagini, ma 
semplicemente perché le aziende raggirate preferiscono non sporgere 
denuncia. 

Infatti rendere di pubblico dominio questo tipo di eventi per molte 
aziende può costituire una pubblicità negativa ed una conseguente 
perdita di immagine ed affidabilità rispetto ad una clientela che esige 
sicurezza e riservatezza. 

La soluzione, che per forza di cose viene ricercata, è di tipo preventivo 
più che repressivo; l’adozione di sistemi di protezione sempre più 
sofisticati può sicuramente contribuire a ridurre il numero di illeciti. 
Anche in settore non economico è possibile effettuare degli abusi con il 
terminale. Le numerosissime banche dati esistenti possono essere 
consultate in modo indiscreto da persone non autorizzate. In questo 
modo dati particolarmente delicati riguardanti ad esempio le idee 
politiche e religiose dei cittadini possono essere velocemente consultati, 
modificati e confrontati per fini illeciti. 

Anche in questo caso occorre adottare idonee misure di controllo e 
comunque ricordare anche ai più pessimisti che se non esistessero 
archivi elettronici non ci sarebbe la possibilità di avere veloci ed 
aggiornate informazioni che permettono di individuare i responsabili di 
reati comuni e di terrorismo, gravissimi per la collettività. 
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Errori di italiano 


Leggo ed apprezzo la vostra rivista fin 
dal primo numero, sono particolar¬ 
mente interessata alla simulazione di¬ 
namica e mi ha fatto piacere leggere in 
proposito Fardcolo pubblicato nel n. 
3 °. 

Mi sembra quasi superfluo segnalare 
l’errore in esso contenuto: Vi2 sta ov¬ 
viamente per Vt2, ma vorrei invece ri¬ 
chiamare la vostra attenzione su qual¬ 
che errore d’italiano riscontrato più a- 
vanti; precisamente a pag. 28, “digres¬ 
sione” sta per “digressione” e, ancora a 
pag. 28, “un’unico input” non richiede 
l’apostrofo. 

Insegno matematica e fisica in un liceo, 
molti dei miei studenti leggono Perso¬ 
nal Software, spesso ci scambiamo la 
rivista, mi dispiacerebbe se questa ri¬ 
sultasse per alcuni versi diseducativa. 
So bene che gli errori di stampa sono 
pressoché inevitabili, ma credo che sia 
possibile una maggiore attenzione. 

Rita Serafini Tancredi 
Perugia 


il registratore non è una memoria ad 
accesso casuale come il drive, non si 
presentano problemi per salvarli. 
Quando però si cerca di passare questi 
programmi su disco ci si deve arrende¬ 
re di fronte all’impossibilità di dare lo¬ 
ro un nome. 

Infatti se si dà un nome al programma 
si verifica un errore di “Out of Memo¬ 
ry”, ma senza fornire un nome per il 
programma, questo non può essere 
memorizzato su disco. 

La mia utility risolve questo problema: 
essa dimensiona lo spazio di memoria 
a disposizione delle matrici, lasciando 
così all’utente memoria sufficiente per 
dare un nome al programma. Ovvia¬ 
mente è impossibile, dopo aver battuto 
questa utility, chiedere la memoria li¬ 
bera al BASIC pena il blocco del com¬ 
puter, ma vi assicuro, come del resto 
potrete facilmente verificare, che la uti¬ 
lity funziona perfettamente. 

Essa è brevissima: [Poke 49,2 : Poke 
50,2]. Ora potrete dare un nome al pro¬ 
gramma e salvarlo senza alcun proble¬ 
ma. 

N.B. - In seguito per caricare il pro¬ 
gramma non sarà necessario nessun 
particolare accorgimento. 

Luca Armeni 
Pescara 


La ringraziamo per l’attenzione e la fedeltà 
con cui segue Personal Software. Sapere 
di essere così seguiti in ambito scolastico ci 
spingerà a curare sempre più, oltre che i 
contenuti, anche la forma con cui sonct 
espressi. 

Anche se, come giustamente osserva, svi¬ 
ste tipografiche sono purtroppo all’ordine 
del giorno nel nostro lavoro. 


Registriamo questa mini-utility che ci in¬ 
via il lettore sperando che possa essere 
utile a quanti utilizzano sia il drive che 
l’unità a cassette per memorizzare i dati del 
proprio C 64. 



Mini-Utility C 64 


Ho deciso di scrivervi per informarvi 
di una piccola utility che non ho mai 
visto pubblicata e che ritengo di gran¬ 
de utilità per tutti i possessori di C 64 
con un disk drive. 

A volte capitano dei programmi su na¬ 
stro che non hanno il nome e, dato che 
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Conosci l’Apple ? 

s , jl a. 




U //’nD lì 


Paolo Capobussi 

IL MACINTOSH NEGLI AFFARI: 
MULTIPLAN E CHART 

Una presentazione dei due pro¬ 
grammi tra i più diffusi in ambito 
aziendale: Multiplan e Chart, per 
un gioiello della tecnologia perso¬ 
nal: l’Apple Macintosh. 

Cod. 416P L. 16.500 

John Gray 

TASCABILE APPLE Ile E Ile 

Il libro conduce il lettore princi¬ 
piante alla scoperta di tutti i segre¬ 
ti della programmazione dell’Ap¬ 
ple Ile e Ile, attraverso un linguag¬ 
gio non tecnico e presentando di¬ 
versi listati, tutti ampiamente com¬ 
mentati. 

Cod. 003H L. 8.500 

Domenico Inga 
e Philip N.S. Taylor 

WORD PROCESSING 
GUIDA ALL’USO 

L’Istituto Europeo d'informatica, 
con sede a Monza via Vittorio 
Emanuele I, ha creato questo te¬ 
sto autodidattico per permettere, 
in modo semplice e funzionale, di 
conoscere, sfruttandone appieno 
le potenzialità, un programma di 
word processing. L. 26.000 

Cod. PP148 con floppy disk APPLE 


---jxg. 
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Stanley R. Trost 
BASIC SU APPLE 

Avete un Apple e volete finalmen¬ 
te imparare a scrivere dei pro¬ 
grammi in BASIC? Nessun proble¬ 
ma, questo libro vi aiuterà sempli¬ 
ficando notevolmente il vostro la¬ 
voro. 

Cod. 532H L. 14.000 

Rodnay Zaxs 

PROGRAMMAZIONE DEL 6502 

Come si fa ad utilizzare un compu¬ 
ter senza conoscere il funziona¬ 
mento del suo "cuore”? In questo 
libro le informazioni più utili sul 
6502: il microprocessore dell’Ap¬ 
ple. 

Cod. 503B L. 30.000 

Paolo Capobussi 
UN MAC PER AMICO: USO, 
APPLICAZIONI E PROGRAMMI 
PER MACINTOSH 
La presentazione di Macintosh e 
dei suoi programmi più adeguata 
per chi si avvicina al personal com¬ 
puter e per chi desidera utilizzarlo 
più proficuamente. 


J.A. Titus - D.G. Larsen - 
C.A Titus 

INTERFACCIAMENTO 

DELL’APPLE 

Un libro per tutti gli utenti dell’Ap¬ 
ple che desiderano accrescere la 
loro competenza nell’uso del 
computer. Un’occasione d’oro per 
aggiungere qualcosa di veramen¬ 
te ngovo alla vostra biblioteca. 
Cod. 334B L. 14.000 

N. Bréaud-Pouliquen 
APPLE MEMO 

I comandi, i relativi codici, i mes¬ 
saggi di errore, il linguaggio mac¬ 
china, le connessioni: troppe in¬ 
formazioni da ricordare. Con que¬ 
sto libro a portata di mano, e di 
computer, il vostro Apple non avrà 
più segreti per voi. 

Cod. 340H L. 15.000 

Frédéric Lévy 
ALLA SCOPERTA 
DELL’APPLESOFT 
Un libro da non perdere per tutti 
quelli che intendono utilizzare il 
BASIC dell'Apple per scrivere dei 
veri, chiari, utili programmi. 
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Stampanti compatibili 
Mannesmann 

S empre in ambiente Apple, segna¬ 
liamo l’arrivo delle stampanti ad 
aghi MT/85 e MT/86, dotate di 
interfaccia Imagewriter che le ren¬ 
de immediatamente collegabili anche al 
Macintosh. La velocità di stampa è di 180 
caratteri al secondo, e diventa di 45 in Near 
Letter Quality, la grafica è compatibile 
IBM, la rumorosità (; 3 DBA) molto ridot¬ 
ta ed è possibile disporre di più fonti di 
caratteri. 

Mannesmann Tally S.r.l. 

Via Cadamosto, 3 
20034 Carsico (MI) 

Tel. 02-44028)0 



Programmatore 
universale su Apple 

L a Elmarc ha introdotto sul mer¬ 
cato un sistema per la program¬ 
mazione di EPROM via Apple 
II e compatibili. Il software è 
distribuito sui classici supporti da 5,25” e 
l’operatore dispone di una serie ben conce¬ 
pita di menu attraverso i quali scegliere le 
opzioni desiderate. E possibile manipolare 
i blocchi della memoria mediante un po¬ 



tente editor; i collegamenti con l’esterno 
riguardano il disco, memorie già scritte e 
tutto quanto può essere collegato via linea 
seriale RS-232. L’Adapter EM09/A si ri¬ 
volge alle EPROM TMS2708, TMS27t6 e 
a tutte quelle a singola alimentazione delle 
serie 25XX e 27XX in tecnologia MOS e 
CMOS fino alle 27152. 

Elmarc S.r.l. 

Via Tiziano, 7/ 

6012) Ancona 
Tel. 0)i-81318 



Qualcosa si muove 
in casa Atari 

L a Casa americana ci propone 
un’importante anteprima: Atari 
e Activenture hanno sviluppato 
hardware (il sistema 520 ST) e 
software (Facts and Figures) per lo sfrutta¬ 
mento del Compact Disk Drive, la memo¬ 
ria di massa (a sola lettura) del futuro. 
Basata su dischi di materiale plastico, chia¬ 
mati CD-ROM, impiega la tecnologia e gli 
stessi supporti che ci sono familiari nel 
mondo della musica, arrivando a registra¬ 
re fino a ;oo milioni di byte su un singolo 
disco. Ci piace pensare alla rivoluzione che 
la diffusione di queste memorie potrà rap¬ 
presentare: non più scaffali colmi di testi, 
ma una biblioteca di minuscoli “dischi illu¬ 
strati” a basso costo, aggiornabili periodi¬ 
camente per sostituzione, acquistando ma¬ 
gari in edicola un’intera enciclopedia con 
figure a colori contenuta su un paio di 
nuovi dischetti. Il software di gestione Ac¬ 
tiventure, Facts and Figures, consente di 
reperire le informazioni presenti in CD¬ 
ROM mediante l’interfaccia grafica GEM 
della Digital Research ed una serie di tavo¬ 
le d’accesso indicizzate per ricerche con 
vari criteri: argomento, autore, titolo, sog¬ 
getto. Non siamo ancora in grado di co¬ 
municarvi disponibilità e prezzo del siste¬ 
ma. Questi dati sono invece ben noti per 
quanto concerne il modello 130 XE 128 
Kbyte, ultimo rampollo Atari sbarcato in 
Italia, basato su 6502C con clock da 1,79 
MHz. Con 380.000 lire più IVA è possibile 
portare a casa questo sistema con 128 Kby- 













te di RAM, BASIC su ROM e compatibile 
con la serie 800XL. Per finire con Atari, 
informiamo i possessori dell’unità a disco 
1050 corredata di sistema operativo DOS 
III che hanno diritto di richiedere la ver¬ 
sione aggiornata dello stesso (la 2. ;, ovve¬ 
ro quella del 130 XE), inviando la fotoco¬ 
pia del certificato di garanzia all’indirizzo 
sotto riportato. 

Atari Italia S.p.A. 

Via dei Lavoratori, 19 
20092 Cinisello B. (MI) 



Un po’ di tutto ... 


• Videobit (via Console Marcello, 18/5 - 
Milano - Tel. 02-390; 16) distribuisce 
un’interfaccia per ZX Spectrum che si col¬ 
lega al connettore d’espansione del com¬ 
puter e comprende un sistema d’alimenta¬ 
zione, un sistema operativo (56 Kbyte di 
ROM) per la gestione della scheda, un 
debugger con programmato re di EPROM 
2764-27128, 8 Kbyte di RAM di servizio, 
un controller per doppio disk drive (da 
100 Kbyte l’uno), interfaccia stampante e 
RS-232, amplificatore suoni e tasto Reset. 

• Si è svolta a Milano dal 27 Maggio al 
primo Giugno “La posta in gioco”, una 
settimana sul gioco elettronico con mo¬ 
stre, conferenze e ampia messe di video e 
game da usare sul posto. Organizzata dal 
CRT (Centro di Ricerca per il Teatro) di 
Milano ha visto la partecipazione di una 
serie di case costruttrici e del Gruppo Edi¬ 
toriale Jackson che ha proposto, tramite la 
redazione della rivista Video Giochi , una 


scelta delle coloratissime buste usate nella 
corrispondenza dai suoi lettori. 

• La NCR (Viale Cassala, 22 - Milano) ha 
partecipato alla regata transatlantica Por- 
tofino-New York di quest’estate con un 12 
metri condotto da Alberto Morerio e Lu¬ 
cia Pozzo e fornendo inoltre il computer di 
bordo del Rolly Go, barca appoggio della 
spedizione. I programmi del personal 
computer NCR hanno consentito di cono¬ 
scere giorno per giorno la classifica reale, 
in tempo compensato, e la posizione delle 
imbarcazioni partecipanti. 

• La Remat Elettronica S.r.l. (Via Monte 
Trina, 2 - Roma - Tel. 06-899007) produce 
e distribuisce una scheda di espansione 
grafica per i computer Sharp MZ-700. La 
risoluzione video diventa di 320 per 200 
punti ed è possibile accedere ad una serie 
di routine in linguaggio macchina per 
sfruttarne a pieno le caratteristiche. La 
scheda costa 200.000 lire più IVA. 

• A Parigi, dal 2 al 6 Dicembre, si terranno 
due saloni specializzati per l’informatica e 
la didattica. Il primo, è Educatec '85, spe¬ 
cializzato in apparecchiature, tecniche e 
materiali per l’insegnamento. Formation 
’8 ; è invece rivolta alla formazione profes¬ 
sionale, ai mestieri e alle tecniche del futu¬ 
ro. 

• A Firenze, dal 22 al 25 Novembre prossi¬ 
mo si terrà, nella sede espositiva della For¬ 
tezza da Basso, la terza edizione di “Expo- 
ser - Firenze Informatica”. 

Il salone dell’Ufficio e dellTnformatica an¬ 
che quest’anno annovera fra le oltre 200 
Ditte rappresentate le maggiori Case italia¬ 
ne ed estere. 



Cresce la memoria 

dell’Apple II 

P er far fronte alle esigenze di chi 
tratta voluminosi data base o te¬ 
sti chilometrici, la Datatech pro¬ 
pone due nuove unità per floppy 
da 5,25” compatibili con l’Apple II ed il 
Ile. I due drive, singolo e doppio, necessi¬ 
tano di un’apposita scheda controller, da 
inserire nello slot 6 al posto di quella stan¬ 
dard e garantiscono una capacità di 640 
Kbyte formattati per dischetto, arrivando 
quasi a quintuplicare le possibilità di me¬ 
morizzazione del sistema. Con l’unità a 


singolo drive SF-AP 960 (standard Shu- 
gart a 96 TPI) è possibile configurare un 
sistema che monta un lettore Apple e uno 
da 640 Kbyte. L’unità SF-AP 961 con ali¬ 
mentatore incorporato consente di dispor¬ 
re di 1.280 Kbyte in linea. Il kit di montag¬ 
gio contiene anche un floppy con le utility 
di formattazione e copia per l’estensione 
del DOS. L’SF-AP 960 costa 770.000 lire, 



mentre il modello superiore arriva a 
1,300.000 lire, sempre IVA esclusa. Sono 
in arrivo unità da 3,;” con le stesse capaci¬ 
tà. 

Datatech S.p.A. 

Palalo Ti - Milanofiori 
20089 Rodano (MI) 

Tel. 02-824)982 



North-Holland 
per la didattica 

L a casa editrice specializzata in 
periodici e testi per l’informatica 
ha aggiunto al suo nutrito cata¬ 
logo una pubblicazione che u- 
scirà ogni trimestre e riguarderà gli svilup¬ 
pi della tecnologia che più coinvolgono gli 
aspetti educativi, nell’azienda come nella 
scuola. È possibile richiedere una copia 
omaggio di Education & Computing scri¬ 
vendo al seguente indirizzo: 

Elsevier Science Publishers 
Attn. B. Wetmekendonk 
P.O. Box 1991 
1000 BZ Amsterdam 
The Netherlands 
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PERSONAL NEWS 


l’Università di Milano, ha coinvolto tre 
docenti delle scuole medie di Milano e 
provincia. 


Software in abbondanza 
per QL 

P roseguendo nella sua strategia di 
produzione di programmi pro¬ 
fessionali per il QL la Sinclair 
annuncia il rilascio della seconda 
versione dei package Psion, più veloce e 
capace della precedente. Con questo soft¬ 
ware aggiornato è in arrivo anche 
Confìg.bas, per configurare l’hardware ed 
alcuni parametri del proprio sistema. Per 
l’Europa continentale la Sinclair ha piani¬ 
ficato inoltre la traduzione di manuali ed 
applicazioni rivolte all’utenza professiona¬ 
le: tra queste QL Cash-Trader, sistema di 
contabilità multitasking a finestre per ge¬ 
stire flussi di cassa e situazione IVA. Altri 
pacchetti, alcuni sviluppati in Italia, arri¬ 



veranno entro l’anno e tra di essi si annun¬ 
cia particolarmente interessante il pro¬ 
gramma di comunicazione tra QL ed IBM. 
Prima di chiudere ricordiamo che il QL ha 
partecipato all’ultima edizione del Giro 
d’Italia per aiutare i giornalisti a ricordare i 
dati statistici delle varie tappe. 

Ricordiamo infine con piacere che ha avu¬ 
to inizio con il numero di giugno la pub¬ 
blicazione su Compuscuola, rivista del 
Gruppo Editoriale Jackson particolar¬ 
mente attenta al legame tra didattica e 
computer, di un corso di educazione infor¬ 
matica rivolto agli insegnanti. L’esperien¬ 
za da cui trae origine il corso, supportata 
da materiale di produzione Sinclair, vede 
infatti come attori principali gli insegnanti 
stessi e non gli esperti dei nuovi strumenti. 
Il programma, coordinato dal prof. Gian¬ 
carlo Mauri dell’istituto di Cibernetica del- 
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Rebit Computer 
Viale Matteotti, 66 
20092 Cinisello Balsamo (MI) 
Tel. 02-6181801 



Microprofessor 
per l’8o88 

L a felice serie dei microcomputer 
didattici Microprofessor si am¬ 
plia anche in Italia dell’ultimo 
prodotto, l’MPF-1/88, basato su 
uno dei micro più in voga del momento. Si 
tratta di un mezzo per imparare a conosce¬ 
re a fondo le caratteristiche hardware e 
software del “cuore” dell’IBM PC e di 
tanti altri compatibili. Il nuovo sistema 
Multitech può convertire un programma 
da codice Assembler a linguaggio macchi¬ 
na durante la sua scrittura; trovare ed eli¬ 
minare gli errori che si manifestano duran¬ 
te l’esecuzione di un programma; caricare 
e scaricare sorgenti su cassetta. La RAM di 
partenza è di 4 Kbyte, ma può essere e- 
spansa a 24, il display è di due righe da 
venti caratteri e la tastiera dispone di 59 
tasti alfanumerici; sono presenti numerose 



interfacce, tra cui una Centronics per il 
collegamento dello stampante. 

Zelco S.r.l. 

P.le Cadorna, 13 
20123 Milano 
Tel. 02-804382 


Acquisizione dati 
via Apple o IBM 

I l catalogo della Pertel si è recente¬ 
mente arricchito della produzione 
3D (Digital Design and Develop- 
ment), una società inglese specializ¬ 
zata in schede e rack modulari per la rac¬ 
colta di dati, utilizzanti l’Apple II o l’IBM 
PC come unità di controllo intelligenti. 
L’integrazione al software di base compiu¬ 
ta dall’azienda italiana le permette offrire 



versatili strumenti di lavoro ove siano ri¬ 
chiesti A/D converter veloci 8-16 canali, 
8-12 bit; D/A con verter di precisione; con¬ 
trollori con relè opto-isolati o al mercurio 
o con mosfet di potenza; amplificatori per 
termocoppie; controllori TTL fino a 3 2 bit 
o per stepper motor a 4 fasi; sistemi di 
trasduzione lineare di precisione con riso¬ 
luzione fino ad 1 micrometro. 

Pertel S.n.c. 

Via Ormea, 99 
10126 Torino 
Tel. 011-633863 



La prima rivista europea di personal 
computer, software e accessori. 
Con test, novità, analisi del mercato... 
11 numeri all’anno: L. 5.000 a numero 
Abbonamento: solo L. 43.000 

Quando l’informazione 
fa testo 
















1 - MORESE Salvatore 

Coop. Borgo Incoronata-Sc.l - 
71040 FOGGIA 

2 PILLA Erminio 

Via Cechov, 20 - 20151 MILANO 

3 BATTAGLIA Vito 

Via Pietragrossa Comp. A.R.G.I.- 
Sc.B3-90015 CEFALO (PA) 

4 FIORENTINI Federica 

Via Matilde Serao, 9 -10141 TORINO 

5 - MAMELI Luigi 

Viale S. Ignazio, 38 - 
09100 CAGLIARI 

6 - CERBONE Roberto 

Via E. De Nicola, 39/5 
80059 TORRE DEL GRECO (NA) 

7 - MAGLIO Giuseppe 

Via Bellini, 53 - 36030 POVOLARO (VI) 

8 -SIMIONATI Vittorio 

Via Gorizia, 3 - 13051 BIELLA (VC) 

9 PIERDICCA Claudio 

Via Crivelli, 9 - 60125 ANCONA 

10 - GRAZZI Mauro 

Via Ricciarelli, 19 - 44100 FERRARA 

11 -GREMMO Stelvio 

Via Rosmini, 13 - 13051 BIELLA (VC) 


AUT. D.M. 4/275258 del 2/3/1985 


12 FENU Franco 

Via Vito Frazzi, 24 
50018 SCANDICCI (FI) 

13 -PETROZZI Mario 

Via Trapani, 42 - 71042 CERIGNOLA 

14 - SANA Giovanni 

Via Paderno, 25/i 
24068 SERIATE(BG) 

15 BATACCHI Filippo 

Via del Filarete, 28 - 50143 FIRENZE 

16 - COMPAGNO Domenico 

Via F.sco Purpura, 23 
90127 PALERMO 

17 MASTRANGELO 

Roberto - Via Bizzarri, 31 
24042 CAPRIATE (BG) 

18 -SUMAN Cristiano 

Via Industria, 10 

30010 CAMPONOGARA (VE) 

19 - GOLIA Romano 

Via Vitt. Veneto, 7 

67019 CASALE DI SCOPPATO (AQ) 

20 - PIAZZA Giuseppe 

Via A. Moro, 25/1 

33072 CASARSA D. DELIZIA(PN) 

21 BELLOCCI Maura 

Via Fattori, 73 - 10141 TORINO 



GRUPPO 

EDITORIALE 

JACKSON 

MilanoSan Francisco*Londra*Madrid 


22 FERRARI Pietro 

Giuseppe - Via Gazzolo, 5 
25080 BOTTICINO MATTINA (BS) 

23 DAMANTE Maurizio 

Via del Serbatoio, 31 
00054 FIUMICINO (Roma) 

24 - LESENTENZE 
Bernardo - Via Papa Benedetto 
XIII, 3-70124 BARI 

25 KEDEROGLU Panagiotis 

Via Monte Sabotino, 32 
20099 SESTO S.GIOVANNI (MI) 

26 ANTINUCCI Amedeo 

Via Principe di Piemonte, 22 
86100 CAMPOBASSO 

27 - LA BUA Antonino 

Via Città di Palermo, 139 
90011 BAGHERIA (PA) 

28 - DOTTO Enrico 

Via dei Mille, 15 
30038 SPINEA (VE) 

29 - BUSSOLA Renato 

Via A. De Gasperi, 24 

37029 S. PIETRO IN CARIANO (VR) 

30 CRIVELLI Luigi 

Via Monte Fumaiolo, 44 
00139 ROMA 




P er il suo funzionamento oc¬ 
corre caricare la routine in lin¬ 
guaggio macchina per la ge¬ 
stione delle immagini video 
presentata sul n. 31 di Personal Softwa¬ 
re. Potete memorizzare e richiamare ti¬ 
no a 5 grafici completi; ogni immagine 
occupa 6.144 byte. 

Con questo programma potrete alter¬ 
nare velocemente le immagini sul video 
ottenendo delle interessanti animazioni 
simili a quelle della sigla di Quark. 
All’inizio occorre caricare il linguaggio 
macchina precedentemente citato; fat¬ 
to questo, dovete inserire il numero 
massimo di fotogrammi che desiderate, 
da 1 a 5; questa informazione serve per 
predisporre la memoria e inizializzare la 
routine in linguaggio macchina (per 
quanto riguarda il funzionamento di 
questa routine vi rimandiamo all’artico- 


Animazione 
di funzioni 
tridimensionali 

Questo programma studia e memorizza 
i grafici delle funzioni tridimensionali 

dì Carlo Cappelli 


Listato 1 - Il programma che esegue le animazioni. 


10 REM 

20 REM --iniziai, izzazi one — 

30 REM 

40 CLEAR 65300 

50 BORDER 0: PAPER 0: I-NK 7: C 
L5 

50 PRINT "******************** 

+ 4444 **-*'**#* 1 ' 

70 PRINT "* STUDIO E ANIMAII 

ONE DI *" 

SO PRINT "* GRAFICI TRIDIME 
N3I0NALI 

90 PRINT ''****#*********#***** 

100 PRINT' ' ..CARICA IL L/M 

PER LA GESTIONE DELLE IMMAGINI 

OPPURE UN FILE DI FOTOGRAMMI" 

110 LOAD ""CODE 

120 IF PEEK 64500 00 THEN PQKE 
54501,1: LET n=PEEK 54500: GO TO 
160 

130 INP UT " n u ni e r o d i f o t egra ni ni i 
(1-5)";n 

140 IF n <1 OR n >5 THEN GO TO 13 

0 

1*0 POKE 64500., n 

i^0 L t T a $=UHRÌ 0 + UHR$ 0 + L-HR$ 

2 -C H R $ 22 + CHR$ 0+CHR$ 1+CHRt 0 
170 OLEAR USR 54052 
ISO LET n1=5*(PEEK 54501=1) 

1 90 LET n =PEEK 64500 
200 IF ni30 THEN GO TO 250 
210 PRINi 0 elaborazione i 

ni hi a g i n e " ’ ' " § visual izzazi o ne de 
i le i ni ni a g i n i ni e ni orili 

d T . t ' ' 

220 INPUT LINE ■: $ 

230 IF c S = “2" THEN GO TO 1330 


4.0 

IF C $ < 

.. i, .1 

J. 

THEN GO TO 220 

250 

REM 



260 

REM -- 

inizi 

a lizzazione 



f u n z i 

o n e 



t ridi 

ni e n s i o n a L e 

270 

REM 



280 

DIM v ( 

50) 


290 

CLS 



300 

PRINT 


GRAFICA TRIO IMEM 

«jOTEPK 



310 

INPUT 

z — 

f (x y ) = "f $ 

320 

PRINT 

.- .* .- 11 

N 

II 

W 

330 

INPUT 

"xm i n 

" ; x ni i 

340 

PRINT 

" x m i n 

" .; x m i 

350 

INPUT 

" x m a x 

".; xma 

360 

PRINT 

"xmax 

"xma 

370 

INPUT 

" y ni i n 

".; ym i 

3 SO 

PRINT 

"ytri i n 

" y ni i 

390 

INPUT 

"yrnax 

".; yrna 

400 

PRINT 

“ymax 

" ; y ni a 

410 

INPUT 

"zrn i n 

( a u t o n o r n i = 0 ) " 

i rii i 

420 

PRINT 

' ' z ni i n 

" ; z ni i 

430 

INPUT 

' 1 z ni a x 

(au tono rrn =0) 

’ ni s 

4-40 

PRINT 

"zmsx 

" z ni a 

450 

INPUT 

" s t e p 

(3-25) ".; s 

450 

INPUT 

"vuo i 

il Pian o di r i f 

rime 

n t o ( s 

/ri ) ” ; 

c $ 

470 

CLS 



430 

LET sx 

= INT 

£ 195 /s) 

490 

LET sy 

= I-NT 

(60/s ) 

500 

LET a = 

s *5OR 

1 

510 

LET dx 

= ( x ni a 

-x rii i ) /£ x s 

520 

LET dy 

= £ y ni a 

-ymi5/sy 

530 

Ir zrna 

< > z ni i 

THEN GO TO 0690 

540 

REM 



550 

REM 

calco 

lo osciiiazine 



d e 11 a 

z 

560 

REM 
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Animazione di funzioni tridimensionali 


ZX SPECTRUM 


lo in proposito). Ora inserite la funzione 
z = f (x,y) e i parametri entro i quali tale 
funzione deve essere studiata. Si deve 
inoltre stabilire l’ampiezza di oscillazio¬ 
ne della z. In definitiva occorre precisare 
le dimensioni del parallelepipedo che 
contiene tutta la figura. A volte è difficile 
sapere a priori l’oscillazione della z, 
quindi, conviene fare in modo che sia il 
programma stesso a stabilirla; per otte¬ 
nere questo risultato occorre inserire 
per zmin e per zmax il valore 0. Il disegno 
viene realizzato a rete, quindi dovete 
inserire l'ampiezza delle maglie dando 
uno step tra 3 e 20. 

Infine, vi viene chiesto se desiderate il 
piano di riferimento o meno. Ricevuti 
questi dati, il computer traccia il grafico 
della funzione, facendo attenzione alle 
parti in vista e cancellando quelle na¬ 
scoste. Terminato il grafico potete me¬ 


morizzare la schermata o passare subi¬ 
to a comporne un'altra. I grafici memo¬ 
rizzati possono essere rivisti, animati e 
salvati su cassetta. Nell'animazione oc¬ 
corre inserire la sequenza con cui si 
desidera rivederli e l’intervallo fra una 
immagine e l'altra. 

Quando salvate il file di immagini, viene 
salvata anche la routine in linguaggio 
macchina, quindi, all'inizio del pro¬ 
gramma, potete caricare il file invece 
della semplice routine. Una volta com¬ 
pletata la sequenza di immagini, se vo¬ 
lete cambiarne alcune, non dovete far 
altro che comporle e memorizzarle; a 
questo punto il programma, con una 
scritta rotante nella parte bassa del vi¬ 
deo, vi segnalerà che i fotogrammi sono 
al completo e vi chiederà il numero del 
fotogramma da sostituire con quello 
sullo schermo. Premete il tasto deside¬ 


rato e il gioco è fatto. Se invece avete 
cambiato idea e non desiderate più me¬ 
morizzare l’immagine sullo schermo, 
premete 0. 

Le funzioni sono visualizzate in asso¬ 
nometria con angolo di vista principale 
di 60° 

La semplicità del programma è resa 
possibile dalla duttilità della funzione 
Draw e dai comandi Over e Inverse che 
permettono la rapida cancellazione di 
ciò che non si deve vedere. Nell’affron- 
tare questo aspetto, ci siamo serviti di 
un particolare algoritmo che risolve il 
problema senza tener conto di concavi¬ 
tà e intersezioni delle suprefici. 

La superficie è approssimata con una 
struttura a rete dove la distanza tra due 
punti della x dipende dalla variabile dx 
(dy per la y). Tale variabile è direttamen¬ 
te proporzionale allo step inserito in in- 


570 

LET 

>; =x mi: L ET y = y rn i 

= 1*0 

LET 

z rn 1 =UhL f $ : LET z m a =z m i 

590 

r uP 

x =x rn i TO xm a STEP d x 

600 

POR 

y = y m i T0 y rn 3 STEP d y 

610 

LET 

z=UAL f $ 

520 

IP Z 

•;zm i THEN LET zmi=z 

530 

IF Z 

>ztna THEN LET zroa=z 

54.0 

NEXT 

; y 

5 o 0 

NEXT 


fi fi 0 

REM 


570 

REM 

—e L a b 0 r a z i o n e immagine 

630 

REM 


590 

LET 

riiz =71/ izma -zm 1 ) 

700 

LET 

X-Xlì'ii : LET j=l 

710 

F 0 P 

y = y rn i T 0 y m a ST E P d y 

720 

LET 

z = xNT ( t UAL f $-zm 1 )*m z + 

rd ~ d -f . T i ! 


730 

LET 

z=z* (z >0 AND z < =175) +17 

# ■. Z 

■1753 


740 

LET 

f i ì =2 

750 

LET 

j =3+i 

750 

NEXT 

y 

^70 

IP C 

$ = :! n'’ THEN GÙ TO 0330 

730 

PLO i 

0 ; 0 

790 

DRfiL 

195., 0 

300 

DRAU 

60.; 104 

510 

L' : W H 

-195 ; 0 

320 

L' ! R P W 

-50 -104 

330 

LEI 

Ì =0 

340 

1“ U K 

x =xrn i +dx TO x rn a STtP dx 

350 

LET 

i=i+l: LìzT „i =£y +1 

F F 0 

r u k 

y =y rn a T 0 y mi -d y /5 STEP 


-dy 

370 LET sl=Z 

380 LET z=INT i (UAL f $-zrn ; ) *mz + 
.! + 3 - S + , 5) 

'390 LET'z=z*(z>0 AND z < s 175) +17 
5 x l ; x 7 5 ! 

900 Ir ysyma THEN GO Tu 1030 
910 L cT a 2 =S * fi + j 3 


■ 20 LET 3 — i. v !, ,j +1 .i - s 1 1 / 3 

930 LET a4- = {Z - i. j +11 3 /£ 

94.0 POR k=l Tu £ 

950 PLOT INUERSE 1; OUER 1 ; a 2 - k 
a 1 + a 3 * k 

-*& 0 DKHw xM U iz. R ~ u 1 ; 0 , 

970 NEXT k 

2 30 LET SL=S * 1 . 1 + .j — 2 .- 

9 9 0 L ET a 3 = t v ! j +13 - v ( j 3 ) / £ 

1000 POR k =1 T0 £ 

1010 PLOT INUER5E 1; OUtR lja2 + k 

■. v t j 3 + a 3 * k 


1020 

DRAU INUEPSE 1 ; 

0 a 4 + k 

1030 

NEXT k 


1040 

PLO l £ * ( i + j 3 ., a 1 


1050 

D H H '.-.i — £ , V :. j + 1 ] — 

a x 

1050 

DRAU —£,v 1 j3 -V ( 

j +13 

1070 

LET v ( j +13 =a 1 


1030 

LET .j=.j-l 


1090 

NE XI y 


1100 

DRAU £ ; Z-v i13 


1110 

LET VÌ13=Z 


1120 

NEXT x 


1130 

POR j=l TO £y 


1140 

DRAU £ , V t j +13 -V 

< J 3 

1150 

NEXT J 


1160 

REM 


1170 

REM --memorizza 

z i 0 n e 

1130 

REM 


1190 

INP UT ‘ : Lo ffie rn 0 r 

izzi (£/n3 ?" ; 

C $ 

1200 

IP c $ = "n :l OR c$ 

="N" THEN GO 

TO 2 

10 


1210 

LET nl=nl + l: IF 

n1>n THEN L 

ET ni 

=n : GO Tu 1230 


1220 

GO TO 1320 


1230 

LET 3$=" 

r" 010 g r a m m 

i a L 

c 0 m p L e 1 0 p r e 

mi 0 per rii 

0 r n 0 

menu' 0 da 1 a 

"+5TR$ n+" p 

è r in 

£ e rimen1 0 

1 * 
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Seguito listato 1. 


124-13 FOR i = 1 ■ T0 LEN a$-31 

1253 PRINT tti.;AT l,0;a$ii TO i+3 

lì 

1260 PAUSE 3 

1273 LET C* = INKEY$: IF C$<"0" OR 
C $ > STR $ n THEN NEXT i: SO TO 12 
4-0 

1230 IF c$ = " 0 11 THEN GC TO 1330 
1290 LET a *=CHR$ 0+CHRJ 0+CHR$ 3 
2+CHR* 22+CHR* 0+CHR* URL CS+CHR 
$ n 

1300 RRNDOMIZE USR 64-052 
1310 INPUT 1 

1320 RRNDOMIZE USR 64-165 
1330 CLS 

1340 PRINT ■' •' " ' " 0 studi 0 funz 

ione"''"' ^ visualizzazione immag 
ini"''’ B ani ni a z i o n e i rii rn a g i n i “ 
1350 PRINT •' " H s a L v a i m m a g i n i " ' 
" § carica file di f o t o grammi " 
1360 INPUT LINE G $ 

1370 IF c$="i" THEN GO TO 280 
1380 IF C $ = "2" THEN GO TO 1450 

1390 IF C $ = "3” THEN GO TO 1563 

1430 Ir c$="4" THEN GO TO 1743 

1435 11= C $ = " 5 " THEN GO TO 53 

1 — 13 GO TO 1353 
1423 REM 

1433 REM --visualizzazione 
1443 REM 
1453 CLS 

14t.0 INPUT " n u rn e r o f o t o g r a ni m a c h 
e s i v uo l e v ìsua lizzare "j LINE 

G $ 

1470 IF c 4 \ “3" OR C $ > STR $ n THEN 
GO TO 1343 

1480 LET a$=CHR$ URL G$ 

1493 POKE 54042,1: RRNDOMIZE USR 
64325 

1533 RRNDOMIZE USR 64355 
1510 prINT RI ;"oremi un tasto”: 
PAUSE 3 

1523 GO TO 1333 
1533 REM 

1543 RcM - -a nimaz 1 o n e 
1553 REM 

1563 INPUT "inserisci la sequenz 
a c o n g u i v u o i v edere i f o t egra rn 
mi LINE c $ 

1573 IF LEN C $ >255 THEN GO TO 13 
43 

1560 Oi 6 
1590 LET 3$="" 

1503 FOR i=1 TO LEN C$ 

1605 IF URL C $(i) >n THEN PRINT » 
1 ; "ERR0RE I FOT0GRRMMI 50N0 50L0 
"N PAUSE 0: GO TO 1340 
1513 LET a$=a$+CHR$ URL G$(iì 
1523 NEXT i 

1530 POKE 54042,LEN a$ 

1643 RRNDOMIZE USR 64328 

1653 PRINT RT 13,2:"PER TORNARE 

RL MENU" PREMI O" 

1560 INPUT "pausa tra la immag in 

i (1-20) t 


1673 Ir INKEY$ = “3" THEN GO TO 18 
33 

1550 RRNDOMIZE USR 54368 
1690 FOR j =1 TO t • NEXT i 
1703 GO TO 1673 
1^10 REM 

1723 REM —s a i v staggio 
1733 REM 
174-3 CLS 

1745 PRINT •' •' "RICORDA: " 

1753 PRINT "oltre alle immagini 
viene salvata anche la rou 

f -1 n e in linguaggio macchina" 

1753 INPUT "nome file LINE c$ 
1770 SRUE c$CODE 63000-n*6l44,n* 
6144+2003 
1780 GO TO 1333 


Figura 1 - Esemplo di fotogrammi da comporre per realizzare una Interes¬ 
sante animazione con una semisfera. Per l’equazione, vedere l’articolo. I 
valori di xmln e xmax sono di - 2 e 2 per tutti I 5 grafici, quelli di zmin e 
zmax sono zero, mentre per ottenere l’Immagine: 


1) ymln = 0,3 

2) ymin = 0,85 

3) ymln = — 2 

4) ymln = - 3,15 

5) ymin = — 4,3 


ymax= 4,3 
ymax= 3,15 
ymax= 2 
ymax= 0,85 
ymax = —0,3 
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Animazione di funzioni tridimensionali 


ZX SPECTRUM 


put; più piccolo è il suo valore e più 
preciso sarà il grafico (maggiore sarà 
però il tempo di elaborazione). Le varia¬ 
bili sx, sy, sz servono per valutare il nu¬ 
mero dei punti che si devono congiun¬ 
gere per ogni asse. 

Per quanto riguarda le funzioni da in¬ 
serire, bisogna fare alcune precisazioni: 
esse devono essere del tipo z = f (x.y) 
(in input si inseriscono solo f(x,y)) e de¬ 


vono avere come campo di definizione 
un dominio rettangolare; con un esem¬ 
pio capirete meglio cosa si intende dire. 
Consideriamo una sfera: essa non può 
essere direttamente inserita poiché la 
sua equazione è x 2 + y 2 + z 2 =1 (sfera 
con raggio unitario); tale equazione de¬ 
ve essere esplicitata rispetto a Z: 
Z = SQR(1-x 2 -y 2 ) - (semisfera positiva); 
ora si deve osservare che il campo di 


definizione di una tale funzione non è 
certo rettangolare, cioè non è possibile 
determinare un rettangolo nel piano XY 
nei punti del quale la funzione risulti 
definita. 

Infatti, considerando il rettangolo di 
vertici (1,1) (1,-1) (-1,1) (-1,-1), esso 
contiene non solo tutte le proiezioni dei 
punti della sfera, ma anche punti che 
non vi appartengono come il punto 




z = *:■< -y 
xmin -3 
xmax 3_ 
yIti in -5 
y ni a x 5 
z ni i n 0 
z ri i a x 3 


Figura 2 - 
Esemplo di utilizzo 
del programma; 
la figura ottenuta 
è un parabolide 
a sella. 


(1,1) per il quale risulta Z = SQR(-1) che 
non ha senso. 

Nello studiare queste superfici (esem¬ 
pio: gli ellissoidi, di cui la sfera è un caso 
particolare), bisogna fare in modo che 
quando 1-x 2 -y 2 < 0, la funzione assu¬ 
ma un valore maggiore o uguale a zero. 
Si può operare come segue per dise¬ 
gnare la semisfera: Z = SQR ((1-X ★ 
X-Y ★ Y) ★ (1-X ★ X-Y ★ Y) < 0)) 
quando 1-x 2 -y 2 è negativo l’espressio¬ 
ne (1-X ★ X-Y ★ Y < 0) è uguale a zero. 
Visto che abbiamo analizzato a fondo 
questo tipo di superfici, possiamo com¬ 
porne alcune in posizione diverse per 
simulare il loro spostamento (vedi figu¬ 
ra 1). 
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Che cosa ha in 


Animazione di funzioni tridimensionali 

ZX SPECTRUM 


Figura 3 ■ 

Esempi di grafici 
che ben si adattano 
ad essere animati. 
La prima funzione è: 
z=(1 -sin x) ★ 

(1 — cos Y). 

La seconda è: 
z = sin(X + Y). 


A parte queste funzioni che richiedono 
particolari accorgimenti, il programma 
ben si adatta a studiarne tante altre 
(vedi figura 2). 

Nel caso si incorra in qualche errore, 
non conviene dare il Run, altrimenti si 
deve ricaricare la routine in linguaggio 
macchina; in tal caso basta dare Goto 
1330. 

Se avete il 16 Kbyte potete utilizzare solo 
la parte che traccia il grafico tridimen¬ 
sionale che va dalla linea 260 alla linea 
1150, ■ 
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più il Personal Computer IBM? 


Il Personal Computer 
Support Service, 
per esempio. 



Il Concessionario IBM Personal Computer ha un 
servizio completamente nuovo da offrirti: il Per¬ 
sonal Computer Support Service. E un sistema 
che ti permette di ottenere tutte le informazioni 
che vuoi sulla famiglia dei Personal Computer 
IBM. E composto da una serie di videodischi e da 
uno schermo con speciali caratteristiche, che ri¬ 
sponde alle tue richieste al solo tocco di un dito. 
Basta toccare lo schermo e potrai scegliere diret¬ 
tamente dal menù quello che vuoi sapere in rela¬ 
zione al tuo settore di interesse e al tuo lavoro. In 
questo modo potrai ricevere qualunque tipo di 
informazione sulla famigl ia dei Personal Compu¬ 
ter IBM, oppure sui sistemi operativi, oppure sul¬ 
le centinaia di programmi disponibili per i più 
disparati settori applicativi. 

Ma c’è di più: il Personal Computer Support Ser¬ 
vice è collegato direttamente a una banca dati 
IBM europea. Così il Concessionario IBM Perso¬ 
nal Computer potrà avere aggiornamenti in tem¬ 
po reale su tutte le novità relative al Personal 
Computer IBM e ai suoi programmi e sarà in gra¬ 
do di rispondere subito alle più disparate doman¬ 
de su problemi specifici, che potrai essere tu stes¬ 
so a porre. Grazie a questo servizio IBM il Conces¬ 
sionario IBM Personal Computer ti avrà fornito 
un’assistenza ancora migliore. 

Se vuoi vedere da vicino ed usufruire del Perso¬ 
nal Computer Support Service, vai dai Concessio¬ 
nari IBM (gli indirizzi sono sulle Pagine Gialle). 
Allora, hai visto che il Personal Computer IBM ha 
veramente qualcosa in più? 




P Desidero riceverò: ^ 

□ Informazioni sul Personal Computer IBM e i suoi pro¬ 
grammi. 

. DGIi indirizzi dei Coneessionari IBM Personal Computer 
. della mia regione 

. □ Una visita o dimostrazione pratica di un concessionario 
. Nome e Cognome..... 


Azienda.. 

La mia attività è 
Indirizzo. 




















Destroy thè city 
con l’Atari 

Fremono i pulsanti per questo 
entusiasmante videogioco 

di Daniela Cerò 


S copo del gioco è atterrare, 
con un aereoplano, sulla città 
visualizzata dalla terza scher¬ 
mata del programma. Perché 
questo sia possibile, è necessario bom¬ 
bardare la città, distruggendola presso¬ 
ché completamente. 

La possibilità di scelta tra nove livelli di 
difficoltà, vi permette di variare la veloci¬ 
tà a cui l'aereo si sposta sullo schermo. 
Le prime righe del programma ridefini¬ 
scono i caratteri usati per l'aereo, la 
bomba, i grattacieli. Nel frattempo c'è 
una schermata iniziale di presentazione 
del gioco (Gosub 2000). Alla linea 190 
c'è l'istruzione per scegliere il livello di 
difficoltà, a seconda del quale variano 
sia la velocità d'esecuzione del gioco 
che le dimensioni della città (e poi an¬ 
che il punteggio). 

La costruzione della città avviene alle 
linee 240-280 e, conclusasi questa ope¬ 
razione, parte l'aeroplano (carattere % 
ridefinito). Nella linea 380 c’è l'istruzione 
di ritardo corrispondente al livello scel¬ 
to, la 390 è attiva quando l'aereo rag¬ 
giunge il margine destro del video. La 
riga 430 controlla se nella prossima po¬ 
sizione dell'aereoplano ci sono ostacoli; 
altrimenti la linea successiva verifica se 
è stato premuto il pulsante di fuoco del 
joystick o il tasto Start della tastiera, e in 
tal caso il programma rimanda alla rou¬ 
tine di riga 1000. 

Il loop principale è tutto racchiuso nel¬ 
le linee 360-460 che abbiamo appena 
esaminato; gli altri blocchi di program¬ 
ma sono quelli delle righe 500-550 (la 
città è distrutta e potete atterrare), 700- 
910 (nel caso di insuccesso), 1100-1150 
(distruzione parziale dei grattacieli) ed i 
già visti 1000-1060 (bomba sganciata) e 
1000-2080 (intestazione). 

Si potrebbero apportare ancora due 
modifiche; la prima nasce dalla consta¬ 
tazione che un giocatore che atterra a 
livello T può fare molti meno punti di 
uno che distrugge l'aeroplano dopo po¬ 
co a livello 9. Si può quindi introdurre 
l'istruzione: 

505 PTS = PTS + 1000 + INT(RND(1 )★ 
1001 ). 

Un’ulteriore correzione può essere fatta 
alla riga 440, laddove compare: 

...THEN BX = BY = Y +1 : eccetera, 

si può inserire una variabile MK come 
segue: 
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...THEN MK = 3 + INT(RND( 1 ) ★ 5): 

BX = X:BY = Y+1... 

Si provvederà quindi a modificare la li¬ 
nea 1120 come segue: 

K = K+1:IF K = MK THEN... 
con quel che segue. 

In questo modo i piani dei grattacieli 
distrutti da una bomba varieranno da 3 
a 7. 

Un'ultima cosa: nella linea 2070 le scrit¬ 
ture tra parentesi quadre indicano ri¬ 
spettivamente l’attivazione o la disatti¬ 
vazione del modo reverse (tasto Atari). 


Variabili presenti 
nel listato 

X,Y - Coordinate dell’aeroplano. 

BX, BY - Coordinate della bomba. 

Z - Variabile di comodo, usata anche 
per rivelare il contenuto di una casella 
del video. 

L - Livello di gioco. 

PTS - Punti ottenuti. 

BM - Uguale a 1 se il tasto di fuoco del 
joystick o lo Start sono stati premuti 
(altrimenti vale zero). 

I, J - Indici dei cicli For-Next. ■ 


Llstaio 1 - Il programma Destroy thè city. 

5 DATA 4,255,129,129,129,129,129,129,255,5,16,8,132,194,255,2,4,8 

10 DATA 6,170,85,170,85,170,85,170,85,7,0,36,60,24,24.60,24,0,-1 

15 GOSUB 2000 

20 R=PEEK(106)-8 

30 FOR 1=0 TO 1023 

40 P0KE R*256+I,PEEK(57344+1) 

50 NEXT I 
60 READ X 

70 IF X<0 THEN P0KE 203,R:GOT0 150 
80 FOR 1=0 TO 7 
90 READ Y 

100 POKE R*256+(8*X)+I,Y 

110 NEXT I 

120 GOTO 60 

150 OPEN #1,4,0,"K:" 

160 GRAPHICS 0 

170 SETCOLOR 2,3,0:SETC0L0R 4,8,0 

180 POKE .752,1 

190 PRINT "LIVELLO < 1-9 > 

200 GET #1,L 

210 IF L<49 OR L>57 THEN 200 
220 L=L~48 

230 POKE 755,PEEK(203) 

240 PRINT CHR$(125):FOR 1=1 TO 38 
250 Y=INT(RND(l)*(L/2+8))+l 







Destroy thè city con l’Atarl 


ATARI XL 800 


260 FOR J=12 TO 22-Y STEP -1 
270 POSITION I,J:PRINT "$" 

280 NEXT J 

290 FOR J—15 TO 0 STEP -1 
300 SOUND 0,I»6+20,10,J 
310 NEXT J 
320 NEXT I 

330 COLOR 94:L=27-L»3 

340 PLOT 1,23:DRAWTO 39,23 

350 X=1:Y=0:BM=0:PT S=0 

360 POSITION X,Y:OX=X:OY=Y 

370 PRINT "SS"; :X=X+1 

380 FOR 1=0 TO L:NEXT I 

390 IF X=39 THEN X=1:Y=Y+1 

400 IF X>25 AND Y=22 THEN 500 

410 LOCATE X.Y.Z 

420 FOSITION OX,OY:PRINT " " 

430 IF Z=ASC("$") THEN 700 

4,0 IF (STRI3(0)=0 OR PEEK(53279)=6) AND BM=0 THEN BX=X:BY=Y+1:BM=1:K=0: 

IF BY=23VTHEN BY=22 

450 IF BM=1 THEN 30SUB 1000 

460 GOTO 360 

500 POSITION 9,10:PRINT "OTTIMO ATTERRAGGIO !" 

510 FOR 1=0 TO 6000 STEP 20 

520 SOUND 0,1,10,15 

530 NEXT I 

540 SOUND 0,0,0,0 

550 GOTO 840 

700 POSITION X-l.Y-l 

710 PRINT CHR$(7)iCHR$(124);CHR$(6) 

720 POSITION X-l.Y 
730 PRINT 

740 POSITION X-l.Y-l 

750 PRINT CHR$(6)jCHR$(124)jCHR$(7) 

760 FOR I«200 TO 10 STEP -10 
770 FOR J=I-5 TO 1+5 
780 SOUND 0,J,120,15 
790 NEXT J 

800 C0L=INT(RND(1)*15) 

810 SETCOLOR 2,C0L,2iSETC0L0R 4,COL,2 

820 NEXT I 

830 SOUND 0,0,0,0 

840 POSITION 0,0:PRIOT "HAI TOTALIZZATO ";PTS;" PUNTI" 

850 IF MAX<PTS THEN MAX=PTS 

860 POSITION 0,1:PRINT "IL PUNTEGGIO MASSIMO : ";MAXi" PUNTI" 

870 POSITION 0,5SPRINT "Vuoi tentare ancora ?" 

880 GET !tl,Z 

890 IF CHR$(Z)="S" THEN 160 
900 IF CHR$(Z)<>"N" THEN 880 
910 GRAPHICS 0:END 
1000 POSITION BX.BY:PRINT " " 

1010 BY=BY+1:IF BY=23 THEN BY=22 
1020 LOCATE BX.BY,Z:POSITION BX.BY 
1030 PRINT CHR$(39) 

1040 IF Z=ASC("$") THEN GOSUB 1100 

1050 IF BY=22 THEN POSITION BX,22:PRINT " ":BM=0 

1060 RETURN 

1100 POSITION BX.BY:PRINT SOUND 0,230,120,15 

1110 PTS=PTS+35~L:POSITION 0,0:PRINT PTS 

1120 K=K+1:IF K=5 THEN BM=0:POSITION BX,BYSPRINT " " 

1130 POSITION BX.BY:PRINT " " 

1140 SOUND 0,0,0,0 
1150 RETURN 

2000 GRAPHICS 17:POSITION 2,1 
2010 PRINT #6;"destroy thè city" 

2020 POSITION 0,4SPRINT #6:"VOI SIETE ALLA GUIDADI UN AEREOPLANO E" 

2030 PRINT #6;"DOVRETE DISTRUGGERE LA CITTA'SOTTOSTANTE"; 

2040 PRINT #6;"PRIMA DI ATTERRARE EIMPADRONIRVENE." 

2050 PRINT #6;"SCEGLIETEVI IL GRADODI DIFFICOLTA'PER" 

2060 PRINT #6;"QUESTA IMPRESA E,MI RACCOMANDO,CALCOLATESENE DOVE SPARATE" 
2070 POSITION 2,19:PRINT #6;"[<REV.ON>]UN ATTIMO ANCORA[<REV.OFF>]" 

2080 RETURN 
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La gestione 
del video 

Produciamo delle routine 
e dei trucchi per l’output su video 



I ncominciamo con l'analizzare le 
possibilità cromatiche dello Spec- 
trum; come tutti sanno, questo 
computer è dotato di otto colori, 
ciascuno dei quali ha due tonalità di 
luminosità. Lo schermo è diviso in 768 
caratteri (24 linee, 32 colonne) e ognu¬ 
no di essi è dotato di un colore per lo 
sfondo e uno per l'inchiostro; inoltre, 
ogni carattere può godere di due lumi¬ 
nosità e può essere lampeggiante. Lo 
sfondo, l’inchiostro, la luminosità e il 
lampeggiamento, costituiscono gli attri¬ 
buti di un carattere. I valori di tali attri¬ 
buti sono memorizzati a partire dalla 
locazione 22528 per un'estensione di 
768 byte; ogni byte contiene gli attributi 
di un carattere. 

Se eseguite delle Poke in tale zona di 
memoria, vedrete cambiare attributi a 
dei caratteri sul video; ciò avviene per¬ 
ché un particolare integrato dello Spec- 
trum, la ULA, provvede periodicamente 
ad analizzare quelle locazioni e a forni¬ 
re di conseguenza informazioni ad un 
altro integrato (LM 1889), che genererà 
l'immagine video. 

Per modificare gli attributi in un determi¬ 
nato punto del video di coordinate x, y, 
dovete eseguire la Poke nella locazione 
numero 22528 +X +Y x 32. 

Il numero da inserire dipende dal tipo di 
attributi che si desidera; tale valore si 
calcola, come illustrato a pagina 88 del 
manuale, nel seguente modo: Ink + Pa¬ 
per ★ 8 + Bright ★ 64 + Flash ★ 128, 
dove Ink e Paper assumono valori da 0 
a 7, mentre Bright e Flash assumono 
valori 0 o 1. Consultate a riguardo la 
tabella 1. 

Ad esempio, affinché il carattere di 
coordinate 10,5 abbia lo sfondo rosso e 
l'inchiostro giallo, dovete fare Poke 
22698,22 

Sfruttando quanto detto, possiamo rea¬ 
lizzare una routine in linguaggio mac¬ 
china che gestisca il colore a nostro 
piacimento e che possa essere sfruttata 
in molti programmi. 

Prima di passare ad analizzare la rou¬ 
tine, vi illustriamo un programma scritto 
in BASIC atto alla sua memorizzazione 
(vedi listato 1). 

Con questo caricatore dovete introdur¬ 
re i codici decimali delle istruzioni As- 
sembly e al termine un valore indicato 
con Check. 

Questo numero rappresenta la somma 
dei codici di tutte le istruzioni inserite. 
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Nel caso commettiate qualche errore è 
facile che la somma dei codici da voi 
inseriti differisca da quella effettiva; in 
tal caso, il programma vi segnalerà la 
presenza di qualche sbaglio. In questo 
modo si vengono a ridurre le possibilità 
di non funzionamento delle routine in 
linguaggio macchina. Detto questo, 
passiamo ad analizzare la routine: essa 
serve per modificare istantaneamente 
gli attributi di una porzione rettangolare 
di video di dimensioni a piacere, una 
cosa simile non è possibile col BASIC. 
Per analizzare questa routine dovete in¬ 
serire i codici decimali del dump 1. 


Il dump 1 è scritto per il 16 Kbyte; se 
avete il 48 Kbyte dovete inserire come 
RAMtop il valore di 63.999 e modificare I 
codici segnati con l’asterisco da 125 a 
250; al termine inserite come Check il 
valore 12.928. 

Chi volesse collocare la routine in posi¬ 
zioni diverse, deve modificare opportu¬ 
namente i codici contrassegnati con 
l’asterisco. I parametri per il funziona¬ 
mento del programma in linguaggio 
macchina non vengono inseriti con del¬ 
le scomode Poke, ma semplicemente 
memorizzati nella stringa A$ con la se¬ 
guente sintassi: 


PAPER 


nero 

blu 

rosso 

viola 

verde 

azzurro 

giallo 

bianco 



0 

8 

16 

24 

32 

40 

48 

56 

nero 


1 

9 

17 

25 

33 

41 

49 

57 

blu 


2 

10 

18 

26 

34 

42 

50 

58 

rosso 

| 

3 

11 

19 

27 

35 

43 

51 

59 

viola 

N 

4 

12 

20 

28 

36 

44 

52 

60 

verde 

K 

5 

13 

21 

29 

37 

45 

53 

61 

azzurro 


6 

14 

22 

30 

38 

46 

54 

62 

giallo 


7 

15 

23 

31 

39 

47 

55 

63 

bianco 



Tabella 1 - Valori da Inserire nella mappa degli attributi per ottenere determinati sfondi e inchiostri: 
se volete che il carattere lampeggi dovete aggiungere a tale valore 128, mentre se desiderate 
aumentare la luminosità aggiungete 64. 
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Listato 1 - Programmino per caricare i codici del linguaggio mac¬ 
china. 

10 INPUT "RRMTOP=";P 
20 CLEfiR R: LET R=PEEK 23730+2 
5 6 * P E EK 23731 

30 PRINT " RRMTOP = " ; R ' ' 

35 LET CHECK=0: LEt I=R+1 
4-0 INPUT fi: IP fi : 500 THEN GO T 
3 70 

45 PRINT fi ;TfiB S;"= "; I: POKE 

I, fi 

50 lET CHECK=CHECK+fi: LET 1=1+ 

X 

60 GO TO 40 

70 IF fioCHECK THEN PRINT FLR5 
H 1.; - " “ERRORE P. IC 0 NT ROLLA" : STOP 

60 PRINT - '"CHECK ="; fi 
90 PRINT ''"ORA DELI SfiLUfiP.E L 
fi ROUTINE”: INPUT "NOME PILE 
LINE 3$ 

100 PRINT "NOME PILE "jS* 
j. 10 z H U E 8 $ U U D t R + 1I — R + 10 


RRMTOP=31999 





— 

2 0 7 

0 

= 32000 

fc . 1 

— 

32838 

0 

= 32001 

'] "7 


:J2039 

0 

= 32002 

0 

= 

32040 

1 T 1 

= 32003 

* 125 


32041 

205 

= 32004 

n, 

iL 1 

= 

32042 

196 

= 32005 

35 

zz 

32043 

.l 

d X 

= 32006 

2 3 7 

= 

32044 

201 

= 32007 

176 


32045 

l7l 

= 32008 

151 

=: 

32046 

0 

= 32003 

9 4- 

= 

32047 

42 

= 32010 

203 


32048 

-?p t 

= 32011 

’ì ] 

= 

32349 

'd'd 

= 32012 

x 3 x 


32050 

■i o c; 

= 32013 

35 

zz 

32051 

254 

= 32014 

94 

r 

32052 

250 

= 32015 

203 

s 

32053 

40 

= 32016 

11 

= 

32054 

d 4-c. 

= 32017 

o >** “■ 

E. 

s 

32055 

Ic!5 

= 32018 

11 

~ 

32056 

35 

= 32019 

‘1 '] 

= 

3205 7 

hib4- 

= 32020 

:j 

= 

32058 

■- 5 

= 32021 

94 


32059 

Jir! 

— '«j c! d d 

203 

2 

32060 

245 

— O d ÌlÌ d - Jì 

35 

= 

32061 

125 

= 32024 

203 

- 

3 ii'062 

254 

= 32025 

35 

2 

32063 

o 

= 32026 

203 

2 

32064 

— 11 •— 

= 32027 

3 p 

2 

32065 

■d 4- •-* 

= 32028 

X ■_!' X 

2 

32066 

35 

— p 

— id VJ E. =* 

• ~ 

2 

32057 

12 6 

= 32030 

94- 

2 

32063 

•] 4 ; 77 

= 32831 

131 

2 

32059 

jì d 

= 32032 

*7 Q 

2 

32070 

240 

= 32033 

22 

2 

32071 

u 

= 32034 


2 

32072 

0 

_ -T-- c 

— C. iL> 


= 

32073 


= CL t o o 


r* 

3 

32074 

50 

= 32107 

0 

= 

32075 

0 

= 32108 

5 S 

= 

32076 

* 125 

= 32189 

•i 


32077 

53 

= 32110 

126 

= 

32076 


= 32111 

254 

= 

32079 

* 125 

= 32112 

d -J 

= 

32030 

■' 1 

= 32113 

210 

3 

32081 

113 

= 32114 

4 

= 

32082 

R 

= 32115 

125 

= 

32833 

16 

= 32116 

95 

3 

32034 

252 

= 32117 

5 

= 

32035 

p P 

= 32118 

32 

s 

32036 

rs 

= 32119 

2 

3 

32087 

95 

= 32120 

16 

= 

32033 

•Z'd 

= 321*21 

pro t 

3 

32039 

d. 

= 32122 

— 

= 

32090 

147 

= 32123 

0~ 

3 

32091 

Q:-, 

= 32124 

125 

3 

32092 

II 

= 32125 

254 

= 

32093 


= 32126 

5 3 

= 

32094 

0" 

= 32127 

210 

= 

32095 

* 125 

= 32123 

*x 

3 

32096 

& X 

= 32129 

•i 

l— V 

3 

"32097 

200 

= 32130 

95 

3 

32098 

50 

= 32131 

Fi 

3 

32099 

0 

— «n -t ■-> 

— w 1 E. X C. 

-, —y 

3 

32100 

* 125 

= 32133 

0 

3 

32101 

24 

= 32134 

3 8 

3 

32102 

230 

= 32135 

Fi 

3 

32103 



zr w 

s 

32104 



3 

s 

32105 

CHECK 

=11673 

125 

3 

32106 




Dump 1 - Codici 
decimali per 
realizzare la routine 
per la gestione del 
colore. La routine 
gira sia sul 16 «byte 
che sul 46 Kbyte, per 
quest’ultimo occorre 
modificare le 
locazioni segnate con 
l’asterisco nel modo 
illustrato 
nell'articolo. 


LET A$ = CHR$ X + CHR$ Y + CHR$ LX 
+ CHR$ LY + CHR$ F +CHR$ B 
+ CHR$ P +CHR$I 

dove X e Y rappresentano le coordinate 
dello spigolo in alto a sinistra della su¬ 
perficie rettangolare che si vuole colo¬ 
rare; LX e LY devono esprimere la lun¬ 
ghezza dei lati di tale rettangolo; F e- 
sprime il lampeggiamento. Se si vuole 
che 'a superficie da noi definita lampeg¬ 
gi, si inserisca 1, altrimenti 0; B rappre¬ 
senta la luminosità, ed è necessario in¬ 
serire 0 o 1; P esprime il colore dello 
sfondo, mentre I quello dell’inchiostro, 
tali valori devono andare da 0 a 7 se¬ 
condo i colori scelti. 

Per attivare la routine, date Randomi- 
ze Usr 32010 se avete ili 6 Kbyte, mentre 
per il 48 Kbyte usate Randomize Usr 
64010. Il programma del listato 2, ad 
esempio, colora un rettangolo con lo 
spigolo in alto a sinistra di coordinate 
X = 3, Y = 4 e avente i lati di lunghezza 
18 e 8; dopo la chiamata alla routine lo 
sfondo della superficie rettangolare ap¬ 
parirà verde (P = 4), mentre le scritte sa- 
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locazione esprimono il colore dell’in¬ 
chiostro della parte bassa dello scher¬ 
mo; i tre bit successivi contengono il 
colore del border e lo sfondo dello 
schermo basso; il sesto bit esprime la 
luminosità e l’ottavo il lampeggiamento. 
Le regole di calcolo, per definire tali 
colorazioni, sono sempre quelle pre¬ 
sentate all’inizio di questo articolo, 
quindi, se si vuole attribuire allo scher¬ 
mo basso lo sfondo giallo e l'inchiostro 
blu, consultando la figura 1, basta “po- 
kare" nella locazione 23624 il numero 
49; contemporaneamente anche il bor¬ 
der assumerà la colorazione gialla. Se 
inoltre desiderate anche una maggior 
luminosità, basta aggiungere 64 al va¬ 
lore precedentemente calcolato: Poke 
23624,113. 

Per il lampeggiamento aggiungete in¬ 
vece 128 :Poke 23624,177. 

Il lampeggiamento e la luminosità non 


hanno alcun effetto sul border. Il border 
può essere modificato tramite delle ut e 
con opportune manipolazioni si posso¬ 
no ottenere interessanti effetti. 

Se provate un Out 254, ne otterrete una 
variazione di colore; considerando il 
numero n in binario i bit che determina¬ 
no tali variazioni sono i primi tre, quindi 
per vedere tutte le colorazioni basta da¬ 
re ad n valori tra 0 e 7. 

Con questa Out non si modifica solo il 
border, ma se si setta il quinto bit del 
numero n, si ottiene l’emissione di un 
segnale acustico. Detto questo possia¬ 
mo ottenere interessanti effetti acustici 
e visivi per personalizzare i nostri pro¬ 
grammi. 

Provate ad esempio le seguenti istruzio¬ 
ni BASIC: 

FOR I = 0 TO 255: OUT 254,1: NEXT I 
Vedrete rigarsi con colori diversi il bor¬ 


der e nel contempo udirete un beep so¬ 
noro. Per ottenere immagini ancora più 
incredibili bisogna aumentare la veloci¬ 
tà del ciclo, realizzandolo in linguaggio 
macchina. 

Questo è ciò che abbiamo fatto nel pro¬ 
gramma del listato 4. 

La gestione dell’immagine 

Dopo aver analizzato come il calcola¬ 
tore gestisce il colore, vediamo ora co¬ 
me avviene la gestione dell’immagine. 

I dati da stampare sul video sono conte¬ 
nuti nel display-file a partire dalla loca¬ 
zione 16384, con un'estensione di 6.144 
byte. 

Tale area è divisa in tre parti di 2.048 
byte ciascuna; ognuno dei tre blocchi 
contiene le informazioni relative a 8 ri¬ 
ghe dello schermo. 

Potete rendervi conto di ciò, osservan- 


Igura 1 - Listato Assembly della routine In linguaggio macchina 
per l’effetto border (vedi listato 4). 


To' enter hex 

a d d r e 

S S tS t 
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Figura 2 - Listato Assembly della routine per la gestione del colore. 
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ranno bianche (I = 7). Flash e Bright so¬ 
no posti a zero. Il programma in lin¬ 
guaggio macchina non controlla l'esat¬ 
tezza dei dati inseriti, quindi, spetta a 
voi, assicurarvi che siano tali; soprattut¬ 
to è importante che la superficie rettan¬ 
golare non fuoriesca dallo schermo, 
quindi è opportuno definire i valori di X, 
Y, LX, LY in modo che non si verifichi 
una tale circostanza. Ad esempio, sa¬ 
rebbe errato dare a un rettangolo di 
spigolo 5,7 una lunghezza LX maggiore 
di 27 e un LY maggiore di 17 (si possono 
colorare le due righe dello schermo 
basso). Analizziamo ora il funziona¬ 
mento della routine. Appena lanciata, 
essa provvede a trovare nell’area delle 
variabili la stringa A$ di 8 caratteri. L’in¬ 
dirizzo di partenza di tale area è punta¬ 
to dalla variabile di sistema VARS; da 
quel punto in poi si cerca la stringa il cui 
inizio è memorizzato come 65,8,0; 65 è il 


codice di A$ mentre 8 e 0 esprimono la 
lunghezza della stringa stessa. Nel caso 
in cui la stringa non sia in memoria o 
non abbia la giusta lunghezza e dopo 
aver analizzato tutta la RAM, il pro¬ 
gramma salta a una routine di errore 
della ROM (Cali 5572). Trovata la strin¬ 
ga, ne trasferisce i primi 4 byte a partire 
dalla locazione 32000; a questo punto 
esegue i calcoli sulla posizione e sui 
colori, secondo le regole illustrate all’i¬ 
nizio dell’articolo, e infine procede alla 
stampa nell'area degli attributi. Tutto 
ciò in pochissimo tempo. 

Se volete utilizzare nei vostri program¬ 
mi la subroutine per la ricerca di una 
stringa, ricordiamo che essa inizia dalla 
locazione 32004 e termina a 32033, re¬ 
stituendo nel registro HL la posizione 
del contenuto della stringa A$; se la 
vostra stringa non ha 8 caratteri, dovete 
modificare adeguatamente il valore del¬ 


la locazione 32026. 

Lo Spectrum possiede solo 8 colori, pe¬ 
rò, con alcuni artifici, possiamo ottener¬ 
ne molti altri; il metodo che vi proponia¬ 
mo è estremamente semplice: basta 
realizzare un carattere UDG a punti al¬ 
terni (vedi listato 3), assegnando colori 
diversi allo sfondo e all'inchiostro; il ca¬ 
rattere assumerà una colorazione som¬ 
ma delle due date. Questo effetto è do¬ 
vuto al fatto che pixel estremamente vi¬ 
cini e di colori differenti, non risultano 
ben distinti al nostro occhio, dando così 
l'effetto desiderato. Per rendervi meglio 
conto di questo, provate il programmi¬ 
no BASIC del listato 3. 

Fino ad ora abbiamo trattato la parte 
alta dello schermo, adesso parleremo 
della parte bassa e del bordo. La varia¬ 
bile di sistema che contiene gli attributi 
di tali zone è BORDCR, e si trova nella 
locazione 23624. I primi tre bit di tale 


Listato 2 - Esemplo di funzionamento della routine per la gestione 
del colore. 

10 REM co L0 r 

£ 0 X F P E E K 32030 = 126 T H E N G O T 
0 120 

30 PRINT "devi caricare il prò 
9 r a ni ir a in Linguaggi o m a c c h i n a 
P e r L a g e s t i o n è d e l c o l o r e ” 

"prepara il nastro e p r e ni i u n 

t di t 0 ’' 

4.0 PAUSE 0 
100 CLEfiR 31999 
110 LORD ""CODE 
120 PPINT "premi un tasto" 

125 PAUSE 0 

130 REM x.y.Lx.ly. flash. brig h t . 
Paper.inK 

200 LET a*=CHR$ 3 + CHR t 4+CHR$ 1 
3+CHR* S +CHR$ 0 + CHR$ 0+CHR$ 4-+CH 
R* 7 

210 RANDOMIZE USR 32010 


Listato 3 - Con questo semplice programma potete creare nuove 
colorazioni. 

10 REM ** + * MULTICOLORE * + + + 

20 FOR i=0 TO 6 STEP 2 
30 POKE USR “a" + i ,BIN 01010101 
40 POKE USR "a"+i+1,BIN 101010 

10 

50 NEXT i 

60 INPUT "coire s f on d o “ s 
70 INPUT “coire inchiostro "c 
30 INPUT "Luminosita - ( 0-1i“; l 
90 LET a$=CHR$ 144 +CHh$ 144+CH 
R$ 144 + CHR$ 144 +CHR $ 144+CHR$ 14 
4- + C H R $ 14 4 + Ut H R $ 144 


100 LE T ai — ai+ s$ + a t+a ì 
110 FOR i=1 TO 20 
120 PRINT SRIOHT l; PAPER s; IN 
K c ; a t 
130 NEXT i 

ISO INPUT ‘ 1 v u o i c a mbia r e co Lor e 
s /n "s $ 

160 IF s$="s" OR s$="S" THEN CL 
S GO TO 60 


Listato 4 - Con questo programma potete realizzare Interessanti 
effetti visivi modificando velocemente I colori del border. 

10 REM +*** border **** 

20 CL.EAR 31999 

30 PRINT "questa r ou t ine e co») 
pietà m e n t e r i t o c a b i l e t u 11 o r a e 
m e m o r i z 2 a t a a partire dalla l o c 2 
ione 32000" 

40 DATA 243 .. 14,6,6,255 120,211 
, 254,16,251 ., 13,32,246,251,201 
50 FOR i=32000 TO 32014 
60 READ a 
70 POKE i,a 
30 NEXT i 

90 PRINT ' "p r e m i u ri t a s t o “ 

100 PAUSE 0 

120 FOR i=1 TO 50 

130 PAUSE 1 

140 RANDOMIZE USR 32000 
150 NEXT i 
155 BORDcR 7 

160 PRINT ’ v uo i rivedere i'ef 

t e 1 1 o " 

170 INPUT LINE i$ 

ISO IF s$="s" OR •=■$ = " 5" THEN GO 
TO 90 
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Seguito figura 2. 
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Figura 3 - Listato Assembly del programma In linguaggio macchina 
per la gestione del fotogrammi. 
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La gestione del video 


ZX SPECTRUM 


do attentamente il modo in cui vengono 
caricati gli screen. Le difficoltà nascono 
dal modo in cui sono suddivisi i blocchi: 
essi sono frazionati in otto fette di 256 
byte ciascuna, e ogni fetta in fettine di 
32 byte. Ogni carattere viene ad occu¬ 
pare 8 fettine una sopra l’altra sul video, 
ma distanti 256 byte le une dalle altre 
nella memoria di schermo. Questo fatto 
rende difficile la stampa sullo schermo. 
Per meglio capire le difficoltà da supe¬ 
rare, potete provare le seguenti Poke. 
Con Poke 16384,255 stamperete un 
segmento lungo un carattere e alto un 
pixel (ricordate che 255 in binario è 
11111111 se usate 240 al posto di 255 
otterrete un segmento di lunghezza di¬ 
mezzata rispetto al precedente; 240 in 
binario è infatti 11110000). Per visualiz¬ 
zare un segmento sotto al precedente, 


più avanti della precedente Poke. Se 
invece desiderate visualizzare il solito 
segmento a fianco del primo, fate Poke 

16385,255. 

Per ora abbiamo stampato sulla prima 
riga; per stampare sulla seconda, basta 
fare Poke 16416,255. Da queste osser¬ 
vazioni empiriche possiamo concludere 
che segmenti di pixel contigui orizzon¬ 
talmente sullo schermo lo sono anche 
nella memoria di schermo; mentre la 
distanza tra due file di pixel contigue 
verticalmente è di 256 byte; infine, la 
distanza tra la prima fila di pixel di un 
carattere e la stessa del carattere suc¬ 
cessivo è di 32 byte. 

Per lavorare sul secondo blocco dovete 
aggiungere a 16384,2048 cioè partire 
da 18432. Le regole di stampa sono le 
stesse del primo blocco; ad esempio, 


zio della nona riga provate Poke 

18432.255. 

Per eseguire la stessa operazione sul 
terzo blocco dovete operare a partire 
da 20480 (= 18432 + 2048): Poke 

20480.255. 

A questo punto possiamo trasformare 
in una relazione matematica quanto 
detto. Chiamiamo X e Y le coordinate 
del carattere da stampare, (con X com¬ 
preso tra 0 e 31 ; Y tra 0 e 24) per sapere 
l'indirizzo in cui posizionare il primo 
segmento del carattere da stampare (i 
sette successivi segmenti disteranno 
dal primo 256 byte), basta eseguire il 
seguente calcolo: 

16384 + X+ INT(Y/8)^ 2048 +(Y- 

INT(Y/8)^ 8)^ 32 


dovete fare 

Poke 16640,255; 256 byte pervisualizzare 

il solito segmento albini- ma salta a 

una routine della ROM 

Seguito figura 3. 
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eseguire questi calcoli (vedi Personal 
Software n. 19). 

Sfruttando tali routine non si riesce ad 
ottenere velocità incredibili e allora bi¬ 
sogna riformularle ex-novo in linguag¬ 
gio macchina. 

Questa necessità deve essere soddi¬ 
sfatta se vogliamo realizzare un pro¬ 
gramma per la gestione di fotogrammi e 
per le animazioni, oppure se vogliamo 
dotare il nostro Spectrum degli sprite. 
Tutto il discorso iniziale ci servirà per 
meglio capire come realizzare tali pro¬ 
grammi, 

Incominciamo col parlare della routine 
per la gestione dei fotogrammi. 

Sarebbe semplice trasferire in blocco 
tutta la memoria video, più complicato è 
trasferire in memoria e poi rivisualizzare 
una finestra (porzione rettangolare del¬ 


lo schermo) con dimensioni a piacere. Il 
trasferimento in blocco dello schermo 
impone inutili sprechi di memoria con la 
conseguente limitazione sul numero di 
fotogrammi memorizzati. 

Su un 16 Kbyte è possibile memorizzare 
un solo video completo, mentre è possi¬ 
bile conservare 3 finestre da 10 caratteri 
per 20; inoltre, il lavorare su finestre per¬ 
mette la gestione indipendente di varie 
porzioni di schermo. La routine permet¬ 
te inoltre di inserire la sequenza con cui 
i fotogrammi preparati devono ricom¬ 
parire sullo schermo, permettendo così 
interessanti animazioni. 

Per caricare il linguaggio macchina po¬ 
tete usare il programmino del listato 1; i 
codici da inserire sono quelli del dump 2 
se avete il 48 Kbyte; mentre per il 16 
Kbyte dovete inserire come RAMtop il 


valore 31.999 e modificare le locazioni 
segnate con l'asterisco nel seguente 
modo: al posto di 250 inserite 125 e al 
posto di 251 126. 

Al termine dovete inserire come check il 
numero 37.629. 

I parametri da comunicare al linguag¬ 
gio macchina devono essere memoriz¬ 
zati nella stringa A$ rispettando la se¬ 
guente sintassi: 

LET A$ = CHR$ X + CHR$ Y + CHR$ LX 
+ CHR$ LY + CHR$ C +CHR$ I 
+ CHR$N 

dove X e Y rappresentano le coordinate 
dello spigolo in alto a sinistra della fine¬ 
stra che desideriamo individuare; men¬ 
tre LX e LY esprimono la lunghezza dei 
lati di tale finestra. Il parametro C deve 
valere Ose non vi interessa memorizzare 
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La gestione del video 


ZX SPECTRUM 


Dump 2 - Codici da Inserire per realizzare il programma In linguag¬ 
gio macchina per la gestione dei fotogrammi. Gira sul 48 Kbyte e 
sul 16 Kbyte; per quest’ultimo bisogna modificare I codici segnati 
con l'asterisco nel modo illustrato neM’artlcolo. 


RhMTOP=63999 


i. 


64060 




7 

= 

64061 

0 

= 64-1300 


0 

ss 

64062 

0 

= 64001 


17 

= 

64063 

0 

= 64002 


0 

s 

54064 

0 

= 64003 

# 

250 

ss 

64065 

0 

= 64004 


237 

s 

64066 

0 

= 64005 


176 

s 

64067 

0 

= 64006 


53 

s 

54063 

0 

= 64007 


c! 

= 

54069 

0 

= 64003 

« 

250 

s 

64070 

0 

= 64009 


71 

s 

*4071 

0 

= 54010 


53 

s 

64072 

0 

= 54011 


O 

= 

64073 

0 

= 64012 

« 

250 

s 

64074 

0 

= 54013 


95 

= 

64075 

0 

= 64014 


CLCZ. 

ss 

54076 

52 

= 64015 


0 

ss 

64077 


= 54016 


fi 3 

ss 

54073 

24 

= 64017 


0 

= 

64079 

c! 

= 54013 


0 

ss 

64030 

62 

= 64019 


25 

ss 

64031 

13 

= 64020 


16 

ss 

64032 

195 

= 64021 


253 

ss 

64033 

ci 4-0 

= 54022 


34 

= 

54034 

* 250 

= 64023 


7 

ss 

64035 

0 

= 640ii4 

# 

250 

ss 

64036 

4-2 

= 54025 


5 

ss 

64037 

7C; 

= 64026 


fi 

— 

64033 

92 

= 54027 


30 

— 

54039 

53 

= 64023 


0 

= 

64090 

90 

= 64029 


235 

- 

64091 

92 

= 64030 


25 

ss 

64092 

133 

= 54031 


15 

ss 

64093 

55 

= 64032 


253 

ss 

64094 

24-1 

= 54033 


34 

ss 

6409* 

126 

= 54034 


9 

ss 

64096 

35 

= 64035 


250 

s 

64097 

254- 

= 54036 


53 

ss 

64093 

65 

= 54037 


4 

ss 

64099 

32 

= 54033 

* 

250 

ss 

54100 

24-4 

= 64039 


167 

ss 

64101 

126 

= 54040 


40 

ss 

54102 

254 

= 64041 


5 

ss 

64103 

0 

= 64042 


237 

3 

64104 

32 

= 54043 


91 

ss 

64105 

245 

= 54044 


i 

ss 

54106 

35 

= 64045 

* 

250 

s: 

54107 

125 

= 54046 


25 

= 

64103 

157 

= 64047 


34 

ss 

64109 

32 

= 64043 


11 

s: 

64110 

240 

= 64049 

* 

250 

= 

64111 

35 

=: fi 4050 


53 

ss 

54112 

201 

= 54051 


fi 

s 

64113 

62 

= 54052 

# 

250 

s 

64114 

■7 

= 64053 


71 

s 

64115 

50 

= 64054 


235 

= 

64116 

42 

= 64055 


33 

= 

6411- 

» 250 

= 64056 


0 

n 

64113 

205 

= 64057 


0 

s 

64119 

25 

= 54053 


25 

s 

54120 

* 250 

= 64059 


15 

ss 

64121 


253 

= 

64122 

64 

SS 

64139 

17 

SS 

64123 

22 

ss 

64190 

240 

= 

64124 

0 

= 

54191 

249 

SS 

64125 

53 

ss 

64192 

235 

— 

64126 

0 

ss 

64193 

237 

SS 

64127 

* 250 

ss 

64194 

32 

ss 

54123 

95 

ss: 

64195 

53 

ss 

64129 

25 

SS 

64196 

102 

ss 

64130 

53 

ss 

64197 

92 

ss 

64131 

1 

ss 

64193 

135 

ss 

64132 

* 250 

ss 

64199 

210 

ss 

64133 

95 

ss 

64200 

15 

ss 

54134 

5 

ss 

64201 

* 250 

ss 

64135 

32 

ss 

64202 

229 

ss 

64136 

25 

ss 

64203 

53 

= 

64137 

16 

ss 

64204 

5 

ss 

64133 

253 

ss 

64205 

* 250 

ss 

64139 

17 

ss 

64206 

254 

ss 

64140 

0 

s: 

64207 

1 

= 

64141 

"7 

SS 

64208 

40 

ss 

54142 

254 

ss 

54209 

9 

ss 

64143 

3 

ss 

54210 

61 

ss 

54144 

56 

ss 

64211 

71 

s: 

64145 

fi 

ss 

64212 

237 

ss 

64146 

25 

ss 

64213 

91 

ss 

64147 

254 

= 

64214 

11 

ss 

64143 

16 

ss 

64215 

* 250 

ss 

64149 

55 

ss 

64215 

25 

ss 

64150 

1 

ss 

64217 

16 

ss 

64151 

25 

ss 

64213 

253 

ss 

54152 

237 

ss 

64219 

34 

ss 

64153 

91 

— 

64220 

13 

ss 

64154 

13 

ss 

64221 

* 250 

ss 

54155 

* 250 

= 

64222 

193 

ss 

54156 

53 

— 

64223 

11 

— 

54157 

•j 

ss 

64224 

53 

ss 

64153 

* 250 

z 

64225 

5 

= 

64159 

50 

ss 

64225 

* 250 

ss 

64150 

*7 

ss 

64227 

50 

ss 

64161 

250 

ss 

64223 

5 

ss 

64152 

53 

ss 

64229 

* 250 

ss 

64163 

C. 

ss 

64230 

201 

ss 

64164 

i£*0 

s: 

64231 

0 

— 

64165 

50 

ss 

64232 

62 

s 

64166 

159 

ss 

64233 

0 

= 

64167 

# 251 

ss 

64234 

50 

ss 

64163 

195 

ss 

64235 

160 

= 

64169 

154 

ss 

54236 

* 251 

= 

64170 

* 251 

s 

54237 

50 

= 

64171 

0 

ss 

64233 

163 

ss 

64172 

0 

s 

64239 

# 251 

s: 

54173 

50 

ss 

54240 

50 

ss 

64174 

53 

s 

64241 

37 

= 

64175 

92 

= 

64242 

* 251 

ss 

64176 

195 

= 

64243 

50 

ss 

54177 

w 

— 

64244 

40 

= 

64173 

19 

ss 

64245 

* 251 

ss 

64179 

0 

ss 

54246 

53 

ss 

64130 

0 

ss 

64247 

6 

s: 

64131 

0 

= 

54243 

* 250 

ss 

64132 

0 

s 

54249 

167 

ss 

64133 

0 

ss 

64250 

202 

= 

54134 

0 

ss 

64251 

19 

ss 

64135 

0 

ss 

64252 

■# 250 

s 

64136 

0 

ss 

54253 

33 

ss 

64137 

0 

ss 

64254 

0 

ss 

54133 

fifi 

s 

64255 


27 








Seguito dump 2. 


4- 

Z 

64-256 

* 250 

Z 

64-257 

167 

z 

64-258 

4-0 

s 

64-259 

55 

z 

64-260 

213 

5 

64-261 

0 

Z 

64262 

33 

z 

64263 

0 

s 

64264 

83 

z 

64265 


53 

Z 

84266 

•t 

= 

64267 

250 

Z 

64268 

95 

S 

64269 

ìzz! 

z 

64270 

0 

z 

64271 

6 

z 

64272 

32 

z 

64273 

25 

X 

64274 

16 

ss 

64275 


58 

= 

64277 

0 

— 

84273 

250 

— 

64279 

95 

Z 

64230 

25 

Z 

64231 

58 

z 

64232 


z 

64233 

250 

z 

64284 

50 

z 

84235 

“7 

z 

64236 

250 

z 

64287 


209 

Z 

64238 

53 

z 

64239 

ir! 

z 

64290 

* 250 

z 

64291 

79 

z 

64292 

235 

z 

64293 

237 

z 

64294 

176 

z 

64295 

235 

z 

64298 

213 

z 

64297 

95 

z 

64293 

52 

z 

u 1 4299 

32 

z 

64300 

22 

z 

64301 

0 

z 

64302 

147 

z 

64303 

95 

z 

64304 

25 

z 

64305 

289 

z 

64306 

53 

z 

64307 

^7 

z 

64303 

* 250 

z 

64309 

61 

z 

64310 

50 

z 

64311 

—7 

z 

64312 

* 250 

z 

64313 

32 

z 

84314 

229 

z 

64315 

58 

z 

64316 

fi 

z 

64317 

* 250 

z 

64313 

61 

z 

64319 

50 

z 

64320 

fi 

z 

64321 

* 250 

z 

54322 

237 

z 

64323 

83 

z 

64324 

13 

z 

64325 

* 250 

z 

64326 

201 

z 

64327 

205 

z 

84323 

25 

z 

64329 

* 250 

z 

64330 

34 

z 

64331 

9 

z 

64332 

* 250 

z 

54333 

5 fi 

z 

64334 

42 

z 

64335 

* 250 

z 

64335 

50 

z 

64337 

fi 

z 

54333 

* 250 

z 

54339 

71 

z 

64340 

53 

z 

54341 

8 

z 

54342 

* 250 

z 

54343 

0 

z 

64344 

94 

z 

54345 

137 

z 

64346 

218 

z 

54347 

19 

z 

64348 

* 258 

z 

54349 

3 fi 

z 

64350 

16 

z 

64351 

243 

z 

54352 

62 

z 

64353 

235 

z 

54354 


253 = 64-276 


1° COLONNA 

32® COLONNA 

BLOCCO 1 

16384 


16415 

1® RIGA 

16416 




16448 




















16608 



BLOCCO 2 

18432 


18463 

24® RIGA 

18464 


















18656 




20480 











co 

O 

O 




O 

m 



















Tabella 2 - Struttura del display lite; ogni locazione contiene un segmento di otto pixel e ogni riga è a sua volta 
suddivisa In 8 parti. 
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Figura 4 - Listato Assembly della routine In linguaggio macchina 
per la gestione degli aprite. 
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.dee c 
. jf Z, 54095 

6403* 

0 . . 

. .no p 

*4032 

62 3 . 

. L d 3 , 3 

*4034 

35 ........ 

..ine hi 

64034 

155 ........ 

. e p e 

*4035 

' "I *“i 

W w r • * ■ ■ • a • 

..ine hi 

*4035 


..j r nz,54065 

64036 


. .cp 13 

64037 

213 ........ 

. p u £ h de 

*40*7 

2*4 1 3 .... 

64033 

17 21 0 .... 

. ld d e ,21 

*40*9 

32 2^4 .... 

...jf nz,64019 

64091 

25 . 

. a d d h l , d e 

*4041 

35 ........ 

..ine hi 

54092 

209 .. 

.pop de 

*4042 

3^, 

..ine hi 

64093 

24 227 ..... 

. j f 64065 

*404* 

125 ....... 


64095 

1 6 0 .. 
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i colori delle finestre (in questo modo si 
risparmia memoria), altrimenti ponete 1; 
il parametro I contiene il numero della 
finestra su cui lavorate; inizialmente de¬ 
ve valere 1, successivamente se dovete 
correggere qualche finestra, ponete in 
tale parametro il numero della finestra 
da modificare. Infine N esprime il nume¬ 
ro di finestre che desiderate comporre. 
Dopo aver definito la stringa A$, occor¬ 
re memorizzare i dati e predisporre lo 
spazio per inserire le varie finestre; per 


ottenere ciò, fate Clear Usr 64052 (per il 
16 Kbyte Clear Usr 32052). A questo 
punto non vi resta che comporre dei 
disegni sul video e poi immagazzinarli 
con Randomize Usr 64166. Vi ricordia¬ 
mo che non verrà memorizzato tutto lo 
schermo, ma solo quella porzione ret¬ 
tangolare contenuta nella finestra ini¬ 
zialmente definita (se avete il 16 Kbyte 
fate Randomize Usr 32166). 

Per immagazzinare l'intero schermo, 
basta assegnare a X e a Y il valore 0 e a 


LX.32 e a LY,22 (se desiderate salvare le 
ultime due linee dello schermo basso, 
usate 24). 

A questo punto non vi resta che inseri¬ 
re la sequenza con cui desiderate rive¬ 
dere i fotogrammi preparati; tale se¬ 
quenza va posta nella stringa A$ nel 
modo seguente: 

Let A$ Chr$ A + Chr$ B + Chr$ C ... 

A,B,C esprimono il numero del foto¬ 
gramma che si vuol rivedere. 


Seguito figura 4. 


5 4- 0 9 8 

213 . 


64-099 

17 21 0 . . . . 

i ld d £ .« d 1 

64102 

C'Q 

C.-J - ••••*■>• 

. a d d h l : d e 

64103 

d 0 ’z 5 1 i i 1 i 1 a i 

.pop de 

64104 

237 176 . ... 


64106 

235 . .. 

.ex de, h L 

64107 

54- C jD ■ ■ a a « 

.Ld (hi), 255 

64109 

201 Ittaiaaa 

. rei 

64110 

42 75 92 . . . 

. Ld h L (23627 

64113 

53 90 92 ... 

. L d a , (23642) 

64116 

15 c? •■•■!*■« 

. C p h 

64117 

213 6 250 .. 

. j P c 64006 

64120 

126 .. 


64121 

35 . 

.ine hL 

64122 

254 66 . , . . . 

. CP 66 

64124 


. j r nz , 64113 

64126 


. L d a , ( h L ) 

64127 

254 3 . 

. c p 3 

64129 

32 245 . 


54131 

Uw ■ ■ « i « i r ■ i 

.ine h l 

64132 

12 t> aaataaaa 

. L d a , ( h L .i 

64133 

167 . 

.and a 

64134 

32 240 . . . . . 

. .j r nz, 64120 

64136 

35 . 

• ine h L 

64137 

195 221 251 

. jp 64477 

64140 

17 0 250 . . . 

. Ld de,64000 

64143 

237 1 "7 6 ■ a • a 

. L d i r 

64145 

33 244 251 . 

. L d h L , 64500 

64143 

17 112 0 ,.. 

. Ld de , 112 

64151 

53 0 250 ... 

. ld a , (64000) 

64154 

11 7 * i a i a f i i 

.and a 

64155 

202 6 250 . . 

. jp Z , 64006 

64156 

f 1 i i i a i i i a a 

. L-d b , a 

64159 

53 1 250 ,.. 

. Ld a , (64001) 

64162 

254 29 ..... 

. CP 29 

64164 

210 D c! 550 a a 

. .jp ne, 64006 

64167 

53 2 250 ... 

. Ld a , (64002) 

64170 

fiìSl d — l a a a a a 

. CP 23 

64172 

210 6 250 .. 

. .jp ne, 64006 

64175 

C. 5 aaaaaaaaa 

. a d d h L , d e 

64176 

16 253 ..... 

. djnz 64175 

64173 

34 4 250 ... 

. Ld (64304) , h 

64131 

17 54 0 ..., 

. Ld de,54 

64134 

£L aaaaaaaaa 

a d d d h 1 t d €.’ 

64135 

CC2 aaaiaaaa 

. p Ù S h h L 

64136 

£l2 1 eli*-! 5 a a a a 

• pop i X 

54133 

12 & a a a a a c aa 

. L d a , L h L ) 

64139 

254 255 .... 

.CP 255 

64191 

202 227 2*0 

. .jp Z , 64227 


64194 

94 ....... 



1 ,-ì 


64195 

•T-CT 

•J ’J a a a a a a a 

a a 


i n c 

u ; 

! J 

64196 

t) a a = a a a s 

a a 


Ld 

d , ( h L ) 

64197 

W a a a a a a « 

a a 


i n c 

h L 

64193 

■~,cr 

a : a a a r a 

a a 


i n c 

h i 

64199 

•*> ^ 

—' ' a a s a a s a 

a a 


i n c 

h L 

64200 

— -J tù a a a a a a 

a a 



de . h L 

64201 

t'i£ zzi !Z> a a a 

a a 


l. d 

a , 235 

64203 

50 163 251 

a 


L d 

(64419) , a 

64206 

60 165 261 

a 


i ,-t 

(54422 ) , a 

64209 

60 136 261 

a 


Ld 

(64442) , a 

6h-Ì=: lei 

50 139 251 

a 


1. d 

*. '-'4-4-4- 5 J ,i a 

64215 

205 175 251 


c a l 

L 54432 

64213 

221 102 3 



Ld 

h , il X + 3) 

64221 

•-i ■* -7 r ?l -, 

C. C. -L Ili. 1 c. 

a , 


L d 

L , ( i x +2) 

64224 

205 158 25 

•1 

X 


C 8 L 

i. 64414 

64227 

42 1 250 . 

■ a 


Ld 

hL , (64001 

64230 

1 jb! 4- a r a a : a 



Ld 

a , h 

64231 

SJ a s s * a = a 



i A 

e , L 

54232 

Zzi d : a a a r 



Ld 

d , 0 

64234 

33 0 54 . 

a a 


Ld 

h L . 15334 

64237 

25 . .. 

a a 


a d d 

hL.de 

t'H-238 

5 32 ..... 

a a 


L d 

b : 32 

64240 

95 ....... 



L d 

a ; a 

54241 

25 ....... 

a a 


a d d 

h L , d e 

64242 

•1 ZZ ~ -7? 

-L C. a : a 




Z 64241 

64244 

ci d y a a a a s s 

i = 


D ì ! •=. 

h h L 

•6 42 46 

17 0 24 .. 

a a 


Ld 

d 8 ■ ìZ’ 14- 4- 

64243 

5"5 aeriti: 

* a 


a d d 

h L , de 

64249 

-, 1 .1 “T 

C.C. J. X X C. 

a a 


L d 

( i X + 2 ) L 

t-4-2^2 

221 116 3 



Ld 

( i X + 3 ) , h 

64-255 

225 ...... 



P 0 p 

h L 

64256 

17 0 7 ... 



i_H 

d t : 17 y i=i 

64269 

CT .i w 

ZZ. a a z a 

, . 


f_P 

s 

8 4- 2 51 

56 5 ..... 

, s 


■j i“ 

r : z* 4- y y 

5425 3 

•”« cc 



3 d d 

h L , de 

4- d & 4- 

254 15 ... 



CP 

1 Z' 

54265 

56 1 , a t a t 



j r 

C , 54269 

64-268 

CL Zi' rasata: 

, - 


a d d 

h L , d e 

54269 

zzi izl 1 117 \J 



l_d 

£ i x + 0 ) . L 

64272 

ddl 1i6 1 



Ld 

C i X + 1 ) , h 

Z 1 4- izl •’z» 

52 0 ..... 

1 3 


1 ri 

a , 0 

64277 

50 163 251 



L d 

(54419),a 

64230 

Z 1 0 1 Z> Z> d Z 1 1 



Ld 

l 4- 4- zzici ) ,i 5 

t4c'5L' 

50 135 251 

, 


ì i~t 

(54442),3 

642 66 

50 139 251 



L d 

(54445),3 

■Z> 4- d '- i =? 

Uzzi 1 dd'd za 


s 

P U 8' 

h i X 

! Z i 4- c! y IL 

d 0 y a a a a s = 

a a 


D Q D 

de 

■Z 1 4- 2 y 2 

iy a : a a a a a 



i n c 

de 

64293 

1 y assai*: 



i n c 

de 

64224 

1 Q 3 . « s s a s 



i n c 

d e 
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Seguito figura 4. 


54295 

19 ......... 

.ine He 

* 4 2 9 6 

205 175 251 

.cali 64432 

t 1 4-ir 9 9 

221 102 3 . . 

. 1.d h . iiX+3) 

54302 

221 110 2 , . 

. Ld l. , ( i x +2) 

64305 

205 155 251 

.cali 64414 

5 430 8 

221 110 0 . . 

, i d i , f i x + 0 ) 

54311 

221 102 1 .. 

. L d h ; ( i X +1 ) 

54314 

237 91 4 250 

. !.d de , (64004) 

64315 

52 0 . 


64320 

50 3 250 ... 

. ld (64803) ..a 

64323 

62 193 . 


64325 

50 137 251 . 

.Ld (64393),a 

64326 

205 118 251 

,C3ll 64374 

64331 

c! 1 t z ■ i > i i i 

. p d s h d e 

54332 

17 29 0 . . . . 

. 1 d de .,29 

54385 

0 .......... 

. n o p 

64335 

62 223 . 

. ld a, 223 

54336 

139 . 

. c p l 

64339 

43 3 . 

. j r n c , 64344 

54341 

17 29 7 ..,. 


64344 

25 ......... 

. a d d h L.. d e 

64345 

209 .. . . 

.pop de 

64345 

205 113 251 

.cali 64374 

64349 

221 102 3 .. 

. L d h . ( i x +3 ) 

64352 

221 110 2 .. 

. ld l , (i x+2) 

64355 

62 235 ... 

. ld a. 235 

64357 

50 153 251 . 

.Ld (64419),a 

54360 

50 166 251 . 

.Ld (64422),a 

64363 

205 153 251 

.cali 64414 

54366 

1 0 0 . 

. 1 d b C . 0 

64369 

53 3 250 ... 

. ld a .. (64003) 

64372 

79 . 

. Ld C,3 

54373 

201 . 

.rei 

64374 

14 3 . 

. l d c , 3 

64376 

197 . 

.puah b c 

64377 

229 ... 

. P U £ h h l 

64378 

5 8 . 

. 1 d b , 8 

64330 

26 . 

. L d a , i. d e > 

64331 

162 . 

.or (hi) 

64332 

79 r : » » • 1 : » « 

. L d C ,3 

64333 

IL 1 y i * > l l 1 • i 

. 1 d ( h L t , a 

64334 

26 . 

. l d a , ( d e 

54335 

1 4* W i t i l « i i i 

.sub c 

54335 

40 7 ....... 

. jr z, 64395 

64333 

i i « « « i • i 

. p u s h h L 

64339 

33 3 250 . .. 

. Ld h1,64003 

64392 

2 V? ■_!* c! 4-1 1 1 : 1 * 

. se t 6 , ih l ■ 

64394 

225 . =. 

.pop h l 

64395 

5F, ......... 

.ine h 

64395 

19 . .. 

.ine de 

64397 

16 237 . 

. djnz 64380 

64399 

225 ........ 

.pop h l 

64400. 

53 137 251 . 

. ld a, (64393) 

64403 

193 3 . 

t 3 d d 3 .i 5 

64405 

50 137 251 . 

. Ld (64393J , 3 

64403 

35 . 

.ine hi 

64409 

193 . 

.pop b c 

54410. 

13 ......... 

.dee c 

54411 

200 ........ 

• r 1 1 z 

64412 

24 218 ..... 

. ..i r 64376 

54414 

62 2 ....... 


64416 

1 3 0 ...... 

. L d b c , 3 

64419 

236 ........ 

. e x d e , h l 

*4+20 

237 176 .... 

.idi r 


64422 

235 ...... 



. e x d e , h l 

64423 

1 29 0 ... 



. L d b C j=! 9 

64426 

237 74 ... 

t 

, 

. a d e hi , b c 

64428 

61 ....... 



.dee - 

64429 

32 241 ... 



. j r nz,64416 

64431 

201 .. 



, fpt 

64432 

6 2 . 



. L d b , 2 

64434 

197 ...... 



, p U S h b c 

64435 




. p U S h h l 

64436 

62 8 . 



, L d 3,8 

64438 

229 .. 



. p u s h h e 

64439 

13 0 .... 

■ 

. 

. 1 d b c , 3 

64442 

0 ........ 



. n o p 

64443 

237 176 ,. 




64445 

0 .. 



. n o p 

64445 

-, JT 

CC-J s * , a a * 

■ 

a 

.pop h i 

54447 

36 ....... 



.ine h 

64443 

51 . 



.dee a 

54449 

32 243 .,. 




54451 

225 . 



•pop hi 

544*2 

125 ...... 



. 1 d 3 , l 

fiiiS’; 

254 224 .. 




54455 

55, 9 ...... 



. .j r e , 54466 

54457 

1 32 7 ... 



. Ld bc.1324 

54468 

237 74 ... 



. a d e h l , b C 

64452 

t 1 ir* a z s 


a 

. L d b , 0 

54464 

H+ * ..... 



. .i f 64472 

54465 

14 32 , . . . 

a 

a 

c L d C .< idei 

64468 

0 ........ 



. n o p 

54469 

167 ...... 



■ 3 n d 3 

64470 

237 74 ... 



. a d e h L , b e 

54472 

193 . 



.pop b c 

64473 

16 215 ... 



. d.inz *4434 

54475 

201 ...... 



.rei 

64476 

0 . 



. n o p 

54477 

34 . 



. L d d , h 

64478 

93 ....... 



. 1 d e , l 

54479 

53 0 250 . 

• 

a 

. Ld 3, (64000) 

64432 

190 . 



. C P (hi i 

54433 

32 16 . . . . 



..ir nz , 64501 

64435 

•j5 ■ i e i • 1 1 

» 

a 

• ine h L 

64436 

53 1 250 . 

a 

a 

. Ld 3 , (64001.1 

64439 

190 ...... 



. C P (hi ) 

64490 

32 9 ..... 



..ir nz , 64501 

64492 

35 .. 



.ine hi 

54493 

53 2 250 . 

, 

a 

. ld 3,(64002) 

64495 

190 r « a a * r 

, 

a 

. C p (hi ) 

54497 

•- “k "i 

■JC C iiiif 


a 

..ir n Z . 64501 

64499 

24 7 . 



.jr 64503 

54501 

2 3 b ■«!>■« 

a 

a 

.ex d e , h i 

64502 

13 0 .... 



. 1 d b c , 3 

64505 

195 140 250 


.jp 64140 

64508 

235 ...... 



.ex de, h l 

64509 

229 ...... 

t 

a 

. p U S h h L 

64510 

42 4 250 . 

a 

a 

. Ld hi, (64004: 

54513 

17 54 0 . . 

a 

a 

.Ld de,54 

64516 

25 i i i ■ i « * 

■ 

a 

. a d d h l , d e 

64517 

126 . 




54513 

254 255 . . 

a 

a 

.cp 255 

64520 

32 3 . 



. j r nz,64525 

64522 

225 . 



.pop hi 

64523 

24 233 ... 

a 

a 

.J r 64502 

64525 

209 . 



.pop de 

54526 

229 . 



. p U S h hi 

54527 

221 225 .. 

a 

a 

.pop i X 

64529 

195 52 251 


a 

.JP 64308 
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Listato 5 - Esemplo di funzionamento del programma per la gestio¬ 
ne dei fotogrammi. 


1 

=r 


REM fotogrammi 
IP PEEK 64030=92 THEN GO TO 

20 

10 PRINT "devi caricare la rou 

line in linguaggio macchina 

per la gestione delie i m m a g 

ini "''"prepara il nastro e premi 

un tasto" 

11 PAUSE 0: CLEAR 63999: LOAD 
""CODE 

15 REM _ 

20 r _LET_3$=CHR$ 3+ CHR$ 4+CHR* 2 

30 CLEh R USR 64052 

35 REM _ 

40 POR i=1 TO 5 
50 CLS 

60 INK 0: CIRCLE 30'. 30. i *10: I 
NK 4: CIRCLE i*25+80.80,50 

65 INK 0 : PRINT AT 9,15; i; i ; i ; 
iji: INK 2: PAPER i: PRINT AT 8, 

7 ; “ I |c l lt l K ! K l " 

66 PAPER 7 

70 rem 

SO RANDOMIZE USR 64166 
30 NEXT i 
95 REM 


• E 5 E 0 


100 LET a*=CHR$ 1+CHR$ 2 + CHRÌ 3 
+ CHR* 4+CHR$ 5+CHR$ 4+CHR* 3+CHR 
$ 2 


110 POKE 64042,LEN a! 

115 REM _ 

120 RANDOMIZE USR 64328 

125 REM fa ll■HfrMiiUfTulIO 

130 RANDOMIZE USR 64363 
140 PAUSE 5 
i5 0 G 0 T 0 130 
180 REM 


170 LET a*=CHR* 3+CHR* 4+CHR* 

9 +CHR$ 15 + CHR* 1+CHR* 3+CHR* 5 
180 RRND OMIZ_E U SR 64052 

200 CIRCLE 100,30■50 : PRINT AT 
10,5.;^NUQ U A IHMRGJNE‘' 

220 gHND | '0MIZEUSR64_l_6_6_ 

230 CLS : PRINT ‘"VISUALIZZAZINE 
NUOUA IMMhGINE" 


240 PAUSE 30 

250 LET a $ =CHR$ 3 

252 POKE 64042,- LEN a* 

260 RANDOMIZE USR 64328 
270 RANDOMIZE USR 64368 
280 INPUT "UUOI RIUEDERE LA SEO 
UENZA”; 5$ 

290 IF S*="S" OR S$="S“ THEN GO 
TO 100 


CARATTERE 

16384 



16415 


16640 



16671 


16696 




« 

O 

E 

17152 




17408 




17664 




17920 




18176 





16416 




2* RIGA 

16672 




16928 


























Tabella 3 - Struttura delle prime due righe del display file; ogni carattere occupa otto byte distanziati 
256 byte l'uno dall'altro. 


Poi fate Poke 64042 (per il 16 Kbyte 
32042). Per trasferire i dati della stringa 
nell’area di lavoro, date Randomize Usr 
64328. Infine, per rivedere le immagini 
da voi preparate, usate Randomize Usr 
64368 (per il 16 Kbyte le chiamate sono 
rispettivamente a 32328 e a 32368). 

Se desiderate modificare il fotogramma 
numero n dovete inserire nella stringa 
iniziale al posto di I il numero n (come 
già accennato) e poi dare Randomize 
Usr 64052. Per visualizzare i fotogrammi 
in una posizione diversa da quella ini¬ 
ziale, occorre modificare i parametri X e 
Y della stringa A$ nel modo desiderato; 
successivamente inserite un Randomi¬ 
ze Usr 64052 per introdurre nell’area di 
lavoro i dati. 

Il programma in linguaggio macchina è 
composto da 4 routine. 

La prima (Cali 64052), provvede a indi¬ 
viduare la stringa A$ secondo la proce¬ 
dura precedentemente illustrata; poi ne 
trasferisce il contenuto a partire dalla 
locazione 64000; fatto questo, calcola la 
quantità di memoria per ogni fotogram¬ 
ma (il colore occupa un numero di byte 
pari a LX+ LY, mentre l’immagine 8+ 
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LX* LY), e moltiplica tale valore per il 
numero dei fotogrammi da inserire; inol¬ 
tre calcola la posizione della RAMtop 
che inserisce nel registro BC; così fa¬ 
cendo, la funzione Usr 64052 restituisce 
il valore di tale registro (ecco spiegato 
l'uso di Clear Usr 64052). In questa parte 
vengono anche eseguiti dei controlli 
sull’esistenza in memoria della stringa 
A$, sull'occupazione della memoria 
stessa. In caso di errore vengono emes¬ 
si due tipi di messaggi: "J invalid I/O 
device” e 4 "Out of memory". 

Per ottenere questo effetto, bisogna in¬ 
serire nel registro A il codice di errore 
meno uno (per l’errore 4 il valore è 3; per 
l'errore j il valore è 18); dopo di che, si 
deve inserire nella variabile di sistema 
ERR NR tale valore (LD (23610),A) e an¬ 
dare a una routine della ROM per la 
stampa del messaggio alla locazione 
4867. 

Nel nostro programma la selezione del¬ 
l'errore avviene dalla locazione 64015, 
mentre la chiamata alla ROM si trova a 
64240. 

Questa procedura può essere usata nei 
vostri programmi in linguaggio macchi¬ 
na. 


La seconda routine (Cali 64166), cal¬ 
cola la posizione nella memoria di 
schermo della finestra da trasferire, ap¬ 
plicando le osservazioni fatte in prece¬ 
denza. Il calcolo della locazione corri¬ 
spondente alle coordinate X,Y si effet¬ 
tua da 64187 a 64216; esso dà in HL la 
posizione cercata, mentre i parametri X 
e Y devono essere collocati rispettiva¬ 
mente in 64000 e in 64001. 

Questa routine vi può essere utile se 
occorre stampare direttamente nella 
memoria di schermo. Caricata in HL la 
posizione di partenza, si pone in DE 
quella di arrivo; dopo di che, si passa al 
trasferimento (dalla locazione 64410 
per l’immagine, 64253 per il colore), 
Nella terza routine (cali 64328), si ricer¬ 
ca la stringa A$, si controlla poi se i 
valori di tale stringa superano il numero 
massimo dei fotogrammi inseriti. La 
quarta routine (Cali 64368) legge la se¬ 
quenza di fotogrammi e provvede al lo¬ 
ro trasferimento sullo schermo sfruttan¬ 
do buona parte della seconda routine. 
Gli unici elementi che il programma non 
controlla, sono i parametri inseriti ini¬ 
zialmente nella stringa A$; quindi, cer¬ 
cate di non commettere errori nell'asse- 


gnare ad essi i valori, altrimenti incorre¬ 
rete in un clamoroso Crash. Per quanto 
riguarda la definizione della finestra, ri¬ 
leggete quanto detto a proposito della 
descrizione della routine per la gestione 
del colore. 

Per meglio rendervi conto del funzio¬ 
namento di questo programma in lin¬ 
guaggio macchina, provate ad inserire 
il programmino BASIC del listato 5. Qui, 
la finestra video ha lo spigolo in alto a 
sinistra di coordinate 3,4 e i lati di lun¬ 
ghezza 29 e 15 caratteri. La velocità con 
cui si alternano i fotogrammi dipende 
dall’istruzione della linea 140. I foto¬ 
grammi sono 5 e vengono composti tra 
le linee 40 e 90. Per vedere come si 
corregge un'immagine, fate Goto 160. 
Le applicazioni di questo programma in 
linguaggio macchina, sono illimitate; 
possiamo solo suggerirvene alcune: 
potete realizzare animazioni, sfondi nei 
vostri giochi, archivio di screen. 
Passiamo ora a trattare un altro argo¬ 
mento connesso alla gestione della im¬ 
magine: l'implementazione sullo Spec- 
trum degli sprite. 

Per sprite, intendiamo un'immagine di 
dimensioni pari ad alcuni caratteri che 


Dump 3 - Codici decimali della routine per la gestione degli sprite. 
Gira sul 48 Kbyte e sul 16 Kbyte; per quest'ultimo bisogna modifica¬ 
re le locazioni segnate con l'asterisco nel modo Illustrato nell'arti¬ 
colo. 
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La gestione del vìdeo 
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Seguito dump 3. 
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SOUND%i?BUGGY 


D4 OGG/ £ MUSICA PER TUTTI 


nuovidea 











A TUTTA MUSICA CON 


SOUND^S 


Musica dal calcolatore, musica 
vera, completa, definitiva: da ascoltare 
con gli amici. Ed è musica tua! 

Con l’unità periferica SOUND 
BUGGY e la tastierina musicale SIEL 
da appoggiare sopra la tastiera 
alfanumerica, il tuo Commodore 64 si 
trasforma in una autentica band e tu 
diventi subito concertista, compositore 
e arrangiatore. 

Musicista in pochi giorni 
Se sei già esperto di musica, SOL^ND 
BUGGY ti porterà alla perfezione. Se 
sei principiante, ti troverai in pochi 
giorni di fronte a un miracolo: 
comporrai musica tua e potrai 
ascoltarla in una perfetta registrazione 
elettronica collegabile a ogni impianto 
stereo, videotelevisivo, monitor C64. 



Un pacchetto di programmi che 
concentra anni di studio 
Grazie al consistente, straordinario 
software di Sound Buggy, potrai 
eseguire o comporre su 24 ritmi 
(12 preregistrati), disponendo di ben 
28 timbri strumentali (14 preregistrati), 
potendo correggere, migliorare, variare 
e disporre quindi per la registrazione 
definitiva. 

Tramite interfaccia MIDI, 

SOUND BUGGY comunica anche con 
gli altri strumenti musicali elettronici 
(expander, sintetizzatori, sequencer 
ecc.). SOUND BUGGY è un prodigio 
dell’elettronica al servizio della 
creatività. 



di corretta 
alimentazioni 


Volume pi y In batterie 
elettronica 


Volume per la parte 
orchestrale 


Volume aeuernle 


MAXIPRESTAZIONE IN MINISPAZIO 

Il tuo laboratorio musicale, completo e perfetto, è 
tutto qui: il Commodore 64, il SOUND BUGGY, 
la minitastiera SIEL, il software. 



LA QUALITÀ 
DELLA MUSICA 















Indicare con una X il 


CEDOLA PRI VILEGIATA PTACQUISTO 

SOUNDBUGGY 


che interesso 

DI desidero acquistare 
SOUND BUGGY, la vostra 
unità periferica per C64. 
Speditemela contrassegno 
completa del pacchetto 
software sia su disco che su 
cassetto e libretto istruzioni 
cil prezzo speciale di 


E inteso che il mio SOUND 
BUGGY sarà coporto da 
Garanzia per I anno. 

I Sono interessalo olla unità 
periferica per C64 
SOUND BUGGY 


Rhythm Menu 

Visualizzo tutti i 24 ritmi e 
mostra come SOUND BUGGY 
li esegue alla batteria 
elettronica. La batterio è 
programmabile per: Boss 
Drum (grancassa), Cymbal 
Short Ipiatto aperto) Cymbal 
Long Ipiatto chiuso), Snare 
Drum Itamburo rullante) e Rim 
Shot (cerchio rullante). 

Solo Menu 

Elenca tutti i 28 timbri e 
visualizza i parametri con cui il 
sint SOUND BUGGY li 
sviluppa. 

Song Edit 

È il cuore del SOUND BUGGY 
e permette di dirigere 
l"'orchestra". Infatti consente 
di intervenire in tempo reale, 
modificando i parametri 
relativi a.- Solo, Rhythm, 
Accompaniment, Sequencer. 


Main Menu 


Massima semplicità d'impiego 
del software grazie allo 
standardizzazione dei 
comandi. Il Main Menu 
presenta il quadro 
complessivo delle funzioni 
musicali utilizzabili premendo 
i comandi indicati. 


BUGGY 


Compita e spedisci l'unita 
Cedola Privilegiata. È 
l’unico mezzo per ricevere 
SOUND BUGGY, 
completo di tutti i 
programmi, su disco e 
cassetta, a un prezzo 
speciale, direttamente a 
domicilio e con 
12 mesi di Garanzia. 


Lire 185.000 (incluse e vi prego di volermi fornire 

L. 27.650 IVA >; L. 3.750 di informazioni più dettagliate. 

12 MESI DI GARANZIA 

NOME_COGNOME_ 

INDIRIZZO_ 

CAP_LOCALITÀ_ 

DATA_FIRMA_ 


AFFRETTATI! 


Il prezzo è bloccato solo 
finn al 31-12-'85. 
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I 
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Iper < minori occorro quella del gennorel 

DATI FACOLTATIVI 

ETÀ_PROFESSIONE_ 

TITOLO DI STUDIO_ 








































TUTTA 


A COMANDO! 


A tua disposizione hai gli strumenti, i ritmi, i tempi, gli accordi, gli 
arpeggi, gli effetti mixati. come una grande, insperata tavolozza di 

M m m m suoni. Ma tutto questo resterebbe muto senza l’intervento 

A/t / della tua creatività: sotto la guida del tuo estro musicale. 

seguendo le facilissime istruzioni dei programmi, 
prenderà vita sotto le tue mani dapprima la musica 
che vuoi produrre, poi la tua musica. 


Sequencer 

E una funzione polifonica che ti permette di 
comporre e registrare in tempo reale fino a 9 song 
in linea, archiviarle su disco e creare così 
una discoteca da richiamare a tuo piacere. 


Rhythm 

Un’intera batteria elettronica 
al tuo comando con tre parametri 
modificabili: Start, Tempo, 
Key-Start. C’è anche il Down 
Beat che, come un metronomo, 
visualizza le battute musicali. 



Accordi 

Grazie a due sofisticate tecniche 
di sviluppo, basta un dito per <■ 
esplorare tutte le possibilità 
armoniche di base e creare accordi 
automatici. 


Orchestrazioni 

Creato l’accordo 
il SOUND BUGGY si fa in 
quattro: basso, batteria, 
arrangiamento con arpeggio e 
accompagnamento ritmato 
trasformandoti in direttore d’orchestra. 





Ha anche una grande tastiera. 



Con la piccola tastiera sovrapposta 
a quella del computer, SOUND 
BUGGY ti dà tutto ciò che puoi 
chiedere al tuo gusto musicale. Ma con 
la grande tastiera SIEL CMK 49 a passo 
professionale, l’elettronica ti offre una 
ricchezza musicale assoluta, con la 
possibilità di impostare la tua musica a 
due mani su un’unica tastiera, come nel 
classico pianoforte. 


Con CMK 49 puoi diventare 
un vero tastierista. 

Qualsiasi altra tastiera collegabile 
al tuo Commodore 64 diventa “magica” 
con SOUND BUGGY: perchè il suo 
software è universale. 


Compila c spedisci 
in busta chiusa a: 


“Filodiretto SIEL" 



SOCIETÀ INDUSTRIE ELETTRONICHE » p i 


CASELLA POSTALE 10823 
20124 Milano MI 


«IDI 


(Musical Instruments 
Digital Interface) 



Grazie a questo 
linguaggio comune tra 
sintetizzatori 
professionali, SOUND 
BUGGY è in grado di 
parlare con 4 tastiere 
professionali o 
expander creando delle 
orchestrazioni di 
eccezionale qualità 
timbrica. L’importanza 
di questo fattore è ben 
conosciuta dal 
musicista esperto; per 
chi lo vuol diventare 
SOUND BUGGY sarà 
una meravigliosa 
scoperta. 

AVVISO 

IMPORTANTE 

Il SOUND 

BUGGY è acquistabile 
esclusivamente tramite 
il coupon privilegiato 
di questa offerta. Tutti 
gli altri strumenti 
elettronici SIEL sono 
in vendita presso i 
migliori Negozi di 
strumenti musicali. 

Se siete interessati 
rivolgetevi a loro. 
Oppure, se desiderate 
altre informazioni, 
scrivete a 
“Filodiretto SIEL” 
Casella Postale 10823 

20124 Milano MI. 



SIEL S.p.a. 

Stampa propagandistica 
Semestrale n. 1. Il semestre 
1985. Sped. Abb. Postale V 
Gruppo. Vendite per 
Corrispondenza. Proposta, 
accettazione, prezzo e invio del 
prodotto si realizzeranno 
attraverso i Servizi Postali. 
C.C.P. n. 12829636. 












































La gestione del video 


ZX SPECTRUM 


possiamo gestire facilmente sul video; 
uno sprite ad esempio può rappresen¬ 
tare un'astronave, o un omino, o un 
macchinina. 

Alcuni computer hanno di base la pos¬ 
sibilità di gestire degli sprite: ad esempio 
il TI99 e il C 64, se realizzate questa 
routine potenzierete il vostro Spectrum. 
Le dimensioni di uno sprite sono di 24 
pixel per 16 (sul C 64 sono di 21 x 24; sul 
TI99 di 16 x 16), cioè di tre caratteri per 
due. 

Per introdurre il linguaggio macchina 
usate il solito caricatore presentato all'i¬ 
nizio di questo articolo (listato 1). 

I codici da inserire sono quelli del dump 
3; la routine è strutturata per girare sul 
48 Kbyte; se avete il 16 Kbyte dovete 
inserire come RAMtop 31231 e modifi¬ 
care le locazioni segnate con l'asterisco 
nel seguente modo: al posto di 250 inse¬ 
rite 122, e al posto di 251, 123. 


Al termine date a Check il valore 53250. 

Il numero di sprite che il programma 
tuttora può gestire è di 6, al limite 7 se si 
sfrutta anche l’area di memoria destina¬ 
ta agli UDG; nel caso se ne volessero di 
più, occorre collocare il linguaggio 
macchina più in basso, a seconda del 
numero di sprite desiderato; per effet¬ 
tuare tale operazione è necessario agi¬ 
re sempre sulle locazioni evidenziate 
daH’asterisco. 

Per il funzionamento del programma 
occorre, dopo un Clear 63999 (per il 16 
Kbyte Clear 31231), dimensionare una 
matrice stringa A$ di 18 righe e 3 colon¬ 
ne (A$(18,3) ). Nelle prime 16 righe si 
deve inserire il disegno dello sprite, 
mentre nelle ultime due i colori. 

Ogni riga contiene le informazioni ri¬ 
guardanti una fila di 24 pixel e deve 
essere inserita nel seguente modo: 

A$(n) = Chr$ BIN 11100101 +Chr$ BIN 


00001101 + Chr$ BIN 11110000 

Gli uno rappresentano il pixel attivato, 
gli zero il pixel disattivato e n va da 1 a 
16 (potete notare l’analogia con la defi¬ 
nizione degli UDG). Le sequenze di 1 e 
di 0 dipendono ovviamente dal tipo di 
disegno che si vuole realizzare. Lo spri¬ 
te è scomponibile in 6 caratteri; ad o- 
gnuno di questi caratteri si deve asse¬ 
gnare una colorazione il cui valore va 
introdotto nelle ultime due righe della 
matrice (per stabilire tale valore si veda 
la tabella 1). 

La definizione di uno sprite risulta 
quindi abbastanza laboriosa, ma non vi 
preoccupate, più avanti vi presentere¬ 
mo uno sprite editor per poter disegna¬ 
re e colorare facilmente i vostri sprite. 
Ora dovete inserire nella locazione 
64058 il numero dello sprite (Poke 
64058, numero sprite; se avete il 16 Kby- 
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Z 

64420 

"7 

— 

64459 


2 

z 

54493 

79 

z 

54332 

176 

Z 

54421 

237 

z: 

64460 


el4 

z 

54499 

119 

z 

64333 

235 

Z 

64422 

74 

— 

54461 


y 

z 

54500 

25 

z 

54334 

1 

Z 

64423 

6 


64462 


235 

z 

64501 

115 

s 

64335 

29 

Z 

64424 

0 


64453 


1 

z 

64502 

40 

z 

54336 

0 

Z 

64425 

24 

rr 

64464 


3 

z 

54503 

—t 

z 

54337 

25? 

Z 

64426 

5 

~ 

54465 


0 

z 

64504 

229 

= 

5 43 SS 

74 

Z 

64427 

14 

z: 

64466 


195 

z 

64505 

33 

z 

54339 

61 

s 

64423 

32 

s 

64467 


140 

z 

64506 

~Z- 

z 

64390 

32 

z 

54429 

0 

z 

54463 

f* 

250 

z 

64507 

# 250 

z 

64391 

241 

z 

64430 

157 

= 

64469 


235 

z 

64508 

203 

z 

64392 

201 

z 

64431 

237 

z 

64470 


229 

z 

64509 

246 

z 

64393 

5 

z 

64432 

74 

z 

64471 


42 

z 

64510 

225 

z 

64394 

2 

z 

64433 

193 

z 

64472 


4 

z 

54.511 

36 

z 

64395 

197 

z 

64434 

15 

z 

64473 

1» 

250 

z 

64512 

19 

z 

64396 

229 

s 

64435 

215 

z 

64474 


17 

z 

64513 

15 

z 

54397 

62 

z 

64436 

201 

z 

54475 


54 

z 

54514 

”, "7 

Z 

64393 

8 

z 

54437 

0 

z 

54476 


0 

z 

64515 

-, -, — 
iZ. 

z 

643QQ 

229 

z 

64433 

34 

z 

64477 


25 

z 

64516 

53 

z 

64400 

1 

z 

64439 

Q"; 

z 

54473 


Ic't' 

z 

54517 

137 

z 

64401 

3 

z 

64440 

53 

z 

64479 


254 

z 

64518 

* 251 

z 

64402 

0 

z 

54441 

0 

z 

54480 


255 

z 

64519 

193 

z 

64403 

0 

z 

64442 

* 250 

z 

64431 


32 

z 

64520 

3 

z 

64404 

237 

z 

64443 

190 

z 

54432 


3 

z 

54521 

53 

z 

54405 

175 

z 

54444 

32 

z 

54433 


225 

z 

64522 

137 

z 

64406 

0 

z 

64445 

15 

z 

64434 


24 

z 

64523 

* 251 

z 

54407 

225 

z 

54445 

35 

z 

54435 


233 

z 

64524 


z 

64403 

36 

z 

64447 

53 

z 

64486 


209 

z 

54525 

193 

z 

64409 

61 

z 

54448 

1 

z 

64437 


229 

z 

64526 

13 

- 

54410 

-• •“i 

Z. 

z 

64-449 

# 250 

z 

64433 


221 

z 

64527 

200 

z 

64411 

243 

z 

64450 

198 

z 

64439 


225 

z 

64523 

24 

z 

54412 

225 

z 

64451 

32 

z 

64490 


195 

z 

64529 

213 

z 

64413 

125 

z 

64452 

Q 

z 

54491 


52 

z 

64530 

62 

z 

64414 

254 

z 

644t>3 

35 

z 

64492 

* 

251 

z 

64531 

c! 

z 

54415 

224 

z 

64454 

53 

z 

54493 





i 

z 

64415 

55 

s 

64455 

CL 

z 

54494 


CHECK 

=53382 
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Listato 6 - Esemplo di lunzionamento del programma In linguaggio 
macchina per la gestione degli sprlte. 


1 REM iprite 

2 IF PEEK 64-030=35 THEN GO TO 

20 

3 PRINT "dev i carica re il prò 

9 r a m ni a in L i g u aggi o macchina p 

er la gestione degli sp rit 

e.prepara il nastro e p r e rn i u 

n tasto" 

4- PhUSE 0 

10 CLEAR 63999 

11 LORD ""CODE 

20 POKE 64-056., 1 

30 DIM a $ i 18,3) 

35 PRINT "inserisci delle ie 11 


ere a c aso 
36 REM 



4-0 FOR i 
50 INPUT a $ ( i 3 
60 NEXT i 

70 LET a $(17) =CHR$ 

CHR$ 56: LET a j i jg i = 

79 REM igaEMJifciÌEiga 

80 RANDOMIZE USR 64010 

35 PRINT "PREMI UN TASTO": PAU 
SE 0 


PRINT i a $ ( i ) 


6+CHR$ 47+ 

i 17) 


90 CLS : PRINT ■'-••"LA CIFRA IN 

alto h sinistra esprime la 

COLLISIONE.PER MUOVERTI USA IL C 
URSORE" 

100 LET b $ =CHR$ 1 +CH.R$ 10+CHR$ 
10 


110 LET X =10 : LET 4=10 

120 LET x = x + ( INKEY $ = "3"3 -(INKEV 

$ = " 5 " ) 

121 LET y=y+(INKEY$="7"3-(INKEY 
$ = “ 5 ” ì 

130 LET b$(2)=CHR$ X: LET b$(3) 
sCHR* y 

145 PRINT AT R 0 D 0Ì L K?" " 

150 PAUSE 5 
160 GO TO 120 


Listato 7 - Listato del programma per la realizzazione degli aprite. 


9000 BORDER 0: PAPER 0: INK 7: C 
LS • IF PEEK 64092+PEEK 64346< >4 
14 OR PEEK 23730+256 *F'EEK 23731> 
64000 THEN GO TO 9750 

9001 PRINT "******************** 
************" 

9002 PRINT "* SPRITE EDIT 

OR + " 

9003 PRINT "a******************* 
************” 

9004 PRINT i;M "Con questo progr 

a ni ni a puoi definire i 5 s p r 

ite che hai a disposizione. 


0 g n i s p r ite e •' c o 
Riposto da 24 + 16 pixel" 

9005 PRINT ■'■'"0 per elaborare Lo 
sp r i t e " '“@060 c a ri care o v i su 

a lisa re gli spri te" ' - "S Per ni od 
i f i c a r e uno spri t e i n rn e rn o r i a 

9006 INPUT LINE S$ 

9007 IF S $ = "2" THEN GO TO 9300 

9010 INPUT "INSERISCI IL NUMERO 
DELLO SPR ITE "; hUHfi 

9011 IF nurn<=0 OR nurn>=3 THEN GO 
TO 9010 

9015 POKE 64053 , n u rn : CLS 
9020 FOR 1=3 TO 28: PRINT PAPER 
6AT 0,1.;" ": PRINT AT 17,1; PAR 
ER 6.;" " : NEXT I 

9030 FOR 1=0 TO 17: PRINT AT 1,3 
; PAPER 6.;" " : PRINT AT 1,23; PA 
PER 6;" ": NEXT I 

9040 PRINT AT i9,0"Pe r s p os ta r t 
i usa i tasti d e l c u r s o re 

9=s tarnpa 

©scancella" 

3050 print iti; "Al termine premi 
P" 

9060 LlT k =1 : FOR i =1 TO 16 : FOR 
j=4 TO 27: PRINT AT i,j; PAPER 
7; BRIGHT k,” ": LET k=l-k: NEXT 
•j : LET K = 1 -k : NEXT i 
2070 IF s$="3" THEN GO SUB 9910 
9080 LET x =4 : LET 4=1: LET n=120 
: GO TO 9095 

9090 LET k =PEEK 23560 

9091 POKE 23560,0 

9092 IF k >56 OR k. <53 THEN GO TO 
9120 

9095 POKE 22523 + X +4 +32,n 

9096 BEEP .02,1 

9100 LET X=x+ (k =56 AND X <27 3 -(k = 
53 AND x >43 

9105 LET y=y+(k=54 AND y<16 3 - ( k = 
55 AND y >13 

9107 LET n=REEK (22523+x+4*323 

9110 POKE 22528+X+4*32,0 

9111 GO TO 9090 

9120 IF k =57 THEN LET n=0 : BEEP 
0.05,10 

9130 IF k=43 THEN LET n=56+64*il 

NT t (X+y) /23 -(X+4 3 /2 <>0) : BEEP , 

05,5 

9140 IF k =30 OR k,=112 THEN GO TO 
9200 

9160 GO TO 9090 

9200 LET C$="_ 

9201 INPUT 1: PRINT AT 19,0; C$;r 
$; c $ 

9203 PRINT AT 20,4;"ATTENDI UN A 
TTIMO" 

9205 DIM a $(13,30 

9220 FOR i=1 TO 16: LET x=4 : FOR 
k =1 TO 3: LET h =0 : FOR .1=7 TO 0 
STEP -1 

9230 IF PEEK 122528+X+i*323 =0 TH 
EN LET n=n+2tj 

9240 LET x = x +1 : NEXT .1: LET a$ (i 
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te fate invece Poke 31290, num). Per 
memorizzare la matrice fate Randomize 
Usr 64010 (per il 16 Kbyte Usr 31242). A 
questo punto, per stampare e spostare 
il vostro sprite, inserite in B$ il numero 
dello sprite e la sua posizione e fate 
Randomize Usr 64110 (per il 16 Kbyte 
Usr 31342). Variando la posizione di 
stampa farete muovere il vostro sprite. Il 
linguaggio macchina provvede a can¬ 
cellare l'immagine nella vecchia posi¬ 
zione e a stamparla nella nuova; inoltre, 
è attivato l’effetto Over, cioè se lo sprite 
va sopra un'altra immagine, si sovrap¬ 
pone ad essa senza cancellarla. 

Vi è anche la possibilità di sapere su 
quale dei sei caratteri che compongono 
lo sprite è avvenuta la sovrapposizione 
o collisione, basta fare al posto di Ran¬ 
domize Usr 64110, Let k= Usr 64110; in 
k vi sarà un numero compreso tra 0 e 63 


che esprime una tale evenienza. Per in¬ 
terpretare tale valore bisogna trasfor¬ 
marlo In binario e studiare le prime sei 
cifre: se sono tutte 0 non vi è alcuna 
collisione, se sono tutte a uno (cioè 
k = 63), significa che vi è sovrapposizio¬ 
ne totale sui sei caratteri che compon¬ 
gono lo sprite; se la prima cifra vale uno, 
significa che vi è collisione sul primo 
carattere; se la seconda cifra è a uno, vi 
è collisione sul secondo carattere ecc.. 

Ogni sprite occupa 112 byte; 54 per il 
disegno e il colore, altri 54 per salvare 
l'immagine video su cui lo si va a so¬ 
vrapporre e, infine, 4 byte nei quali è 
memorizzata la posizione nella memo¬ 
ria video, dello sprite. Essi sono memo¬ 
rizzati a partire dalla locazione 64612. 
Analizziamo ora il linguaggio macchi¬ 
na. La prima routine (Cali 64010), cerca 
la matrice stringa A$ (18,3) che è memo¬ 


rizzata nel seguente modo: 193 (codice 
di A$ matrice); 59, (occupazione di me¬ 
moria); 2 (numero di dimensioni); 18,0 
(numero di righe); 3,0 (numero di colon¬ 
ne) .... testo stringa. 

Poi, sapendo il numero dello sprite, tra¬ 
sferisce il contenuto della stringa a par¬ 
tire dalla locazione 64500 + 112 per nu¬ 
mero sprite. 

La seconda routine (Cali 64110) cerca 
la stringa B$ di tre caratteri, memorizza¬ 
ta come 66 3 0; controlla poi se lo sprite 
deve essere stampato nella stessa posi¬ 
zione o meno e in tal caso esegue solo 
la stampa dello sprite. In caso contrario, 
cancella lo sprite e ripristina l'immagine 
precedente, poi calcola le nuove coor¬ 
dinate nella memoria di schermo secon¬ 
do le formule viste in precedenza; a 
questo punto salva la porzione di scher¬ 
mo su cui stamperà lo sprite; infine, av- 


Seguito listato 7. 

,k) =CHR $ n. NEXT k: NEXT i 
3250 LET a$(17)=CHR$ 7+CHR# 7+CH 
R$ 7: LET 3$ (13) =8$ (17) 

9250 PRINT RT 20.0 : C$ 

9270 RANDOMIZE USR 64-0IO 
9230 LET b$ = CHR$ num+CHR$ 12+CHR 
$ & 0 

3 3 30 R H N D U MI Z E U 5 R £■ 4-110 

9300 INP UT ' ' v u o i ni o d i f i c 3 r l o ( s / 

n ) " ; s $ 

9310 IF £$="£" OR s$="S" THEN GO 
T 0 90 3 0 

94-00 CL3 PRINT ., "Ora devi c 
o (orar Lo . Lo sprite 

e ' diviso in 6 settori per ognuno 
di essi devi definireio sfondo ; 
i ' ichiostro e i a luminosità 

9410 LET &$ -CHR4 num+CHR$ 13+CHR 
$ 12: RANDOMIZE USR 64110 
9420 PRINT PT 11,13; "123”jRT 14; 
13.; "456" 

9435 FOF: i =1 TO 6 

943 7 PRINT AT 21.. 3; "SETTORE " ; i 

9440 INPUT "s fondo(0-7)";s 

9441 IF s •; 3 OR s >7 THEN GO TO 94 
40 

9445 INPUT "inChiOS t ro (0-73 ”; i 

9446 IF in;0 OR in >7 THEN 00 T0 
9445 

9443 INPUT “luminosità' (0 o 1) 

" ; l 

9449 IF 1.00 AND l < > 1 THEN 00 TO 
9443 

94-.0 LET s =i n +8*s +64* l 
9455 Ir i <4 THEN POKE 22924+i ,% : 
LET a 5 ( 17 .= i ) =CHR $ S 


9460 IF i>3 THEN POKE 22953+i,£: 

LET a $ ( 13 ., i -3) =CHR $ S 
9470 INPUT "vuoi cambiare i colo 
ri (s/n)";s$ 

9430 IF S$="S” OR S*="S" THEN 00 
TO 9440 
9490 NEXT i 
9500 CLS 

9510 RANDOMIZE USR 64010: LET b$ 
= 0HR $ num+CHK$ 13+CHR $ 3: RANDOM 
IZE USR 64110 

9519 PRINT AT 5;0;"lo sprite num 
ero " ; n u m ; " e " s t a t o completato" ' ' 

9520 PRINT " MENU'"''”H sa 

l v a t a g <5 i o " ' "S eia bo razione n u o v 
o sprite"-'"B fine" 

9530 INPUT LINE S$ 

9540 IF £ $ = "3” THEN STOP 
95i0 Ir S$="2" THEN 00 TO 9000 
9570 IF s$="l" THEN 00 TO 9600 
9530 00 Tu 9530 


9600 

00 SUB 9900: CLS : PRINT " 


*¥■ ’z* P kITE 

EDITOR***" 

9610 

PRINT " 

MENU " " 


PRINT "0 

s al v a t a g g io dei “ 

spri 

te e 

d elL a routine per 

g e s t 

irli .§ s 

a l v staggio s o l o d 

P 2 Fi 

s p r i t e " •' “B s a l v a t aggi o d i u 

n o s p 

r x te " 


9630 

INPUT LINE 

s $ 

9640 

IF s$="l" 

THEN LET k =64000 : 

LET 

1=1300: 00 

Ti i '3 700 

9650 

IF S $ = “2" 

THEN LET k =64600 : 

LET 

1=700: 00 

Ti i 3700 

9660 

IF s $ < > “ 3 " 

THEN 00 Tu 9630 

9670 

INhUT “num 

e r o d e 1 1 o s p r i t e 

,-j =i 

S d L 

v3 rs "in 

9630 

j» ì - n {i OR 

n>6 THEN 00 TO 96 

70 : L 

ET 1=112 
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viene la stampa dello sprite e l'analisi 
della collisione. La subroutine di stam¬ 
pa nella memoria degli attributi avviene 
dalla locazione 64414, mentre quella 
per le immagini avviene dalla locazione 
64432; infine, la stampa con Over per gli 
sprite avviene a partire dalla locazione 
64374. Se desiderate togliere l’effetto O- 
ver, dovete modificare le seguenti loca¬ 
zioni: 

64381 porre 119 (LD (HL),A) 

64382 " 182 (OR (HL) ) 

64383 ” 79 (LD C,A) 

Nel caso desideriate che lo sprite non 
ripristini l'immagine su cui precedente- 
mente si era sovrapposto, perché dove¬ 
te ricominciare il gioco, o perché volete 
che lo sprite lasci una traccia mentre si 
sposta, dovete fare la seguente Poke: 
Poke 64554 +112* numero sprite, 255 
(se avete il 16 Kbyte fate Poke 


31786 +112^ numero sprite, 255). 

Lo sprite può essere posizionato su 
tutto lo schermo eccetto che sulla tren¬ 
taduesima colonna; può anche essere 
stampato sulle ultime due righe dello 
schermo basso. Nel caso si cerchi di 
posizionarlo fuori schermo, si otterrà un 
messaggio di errore. Per capire meglio 
quanto detto, provate ad inserire il pro¬ 
grammino BASIC del listato 6 qui, dopo 
aver composto casualmente lo sprite, 
potete spostarlo su tutto lo schermo; in 
alto a sinistra, viene visualizzato lo stato 
di collisione. 

Per realizzare i vostri sprite facilmente, 
vi consigliamo di inserire il programma 
del listato 7; con tale programma potete 
disegnare, colorare, correggere, visua¬ 
lizzare, salvare e caricare da cassetta i 
vostri sprite. Il programma è predispo¬ 
sto per funzionare su un 48 Kbyte, chi 
invece possedesse un 16 Kbyte deve 


apportare ad.esso delle modifiche: tutti 
gli argomenti delle istruzioni Peek, Po¬ 
ke, Clear, Load"”Code, devono essere 
decrementati di 32.768, solo nel caso in 
cui risultino superiori a 60.000. 

Tutte le cifre superiori a 60.000 devono 
quindi subire un tale decremento. Ad 
esempio la linea 9000 diventa: 

9000 BORDER 0: PAPER 0: INK 7: CLS : 
IF PEEK 31324+PEEK 315780 414 
OR PEEK 23730 +256xPEEK 23731 > 
31232 THEN GO SUB 9750 ■ 


Seguito listato 7. 

3590 LET k =54-500 + l * ( R -1 ) 

9700 INPUT "nome file “;s$ 

9710 SANE sJCODE k.l 

9720 CLS : GO TO 9520 

9750 PRINT "ERRORE Lft RRMTOP NON 

E' POSIZIONATA ADEGUATA 

MENTE 0 LA ROUTINE PER LA 

GESTIONE DEGLI SPRITE NON E " I 

N MEMORIA.BISOGNA RIPETERE IL 

CARICAMENTO" '■■■■ "POSIZIONA IL NA 
STRO E PREMI UN TASTO" 

9755 PAUSE 0 

9760 CLEAR 63999: LOAD ""CODE 54 
000 

9795 GO TO 9001 
9300 CLS 

3305 PRINT " menu "H vi su a 
Lizza sprite i n ni e m o r i a " ' ' "S c a r 
ica set sp r i te " "B elaborazione 
sprite " ■' "3 fine " 

9310 INPUT LINE 5$ 

9315 Ir S $ = " 4 " THEN STOP 
a 'c>d O Ir S $ i > " 1 ‘' AMD S $ \ > 1 ' et " HND 
S $< > " 3 " THEN G0 T0 9310 
9330 GO TO 9330 + 20+JRL s$ 

9350 GO SUB 9900 : CLS LET y=3 : 
FOR ì=1 TO 6 

9355 LET b$=CHR$ i+CHR$ <i*4)+CH 
R$ y: RANDOMIZE USR 64110: NEXT 
i 

3360 PRINT 41;“premi un tasto": 
PAUSE 0: INPUT 1: GO TO 9300 
9370 CLS : INPUT "nome file ";s$ 
9330 LOAD S JCODE 64600 
9335 GO TO 9305 
9390 GO TO 9000 

9900 FOR i=64655 TO 65225 5TEP 1 


12: POKE i,255: NEXT i: RETURN 
9910 INPUT "numero sprite da mod 
if i care";s 

9920 IF s 1 OR s>6 THEN GO TO 99 
10 

3930 LET n =64612+112* (S -1) 

9940 FOR i=0 TO 47: LET k=PEEK ( 
i+n): IF k=0 THEN GO TO 9960 
9945 FOR .1=7 TO 0 STEP -1: IF k - 
2t j > =0 THEN LET k=k-2tj: 60 TO 9 
965 

3946 IF k=0 THEN GO TO 9960 
9950 NEXT j 

9960 NEXT i 

9961 PRINT #1;"al te rmine premi 
P" 

9962 RETURN 

9965 LET y=l: LET S=i: IF i>23 T 

HEN LET 4=9: LET S=i-24 

9970 LET X =11-j+3*(s >7)+3*is >15) 

: LET y =4 +S-INT Cs/3)*8: PRINT P 
APER 0; INK 0 ;AT y,x;" " 

9975 60 TO 9946 
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Cod. 402 D ■ Lire 30.000 / Abbonati Lire 24.000 


ENCICLOPEDIE _ 

ABC Personal Computer 

In tre volumi rilegati un pratico ed esauriente corso di 
BASIC. 680 pagine complessive + un volume Dizionario 
d'informatica. 

Cod. 160 A • Lire 150.000 / Abbonati Lire 120.000 

ABC QUIZ 

Test ed esercizi pratici di BASIC. 280 pagine 
Cod. CIABC1 • Lire 40.000 / Abbonati Lire 32.000 


TASCABILI 


P PC G ^ UNG «Off* 

Una guida indispensabile nell'utilizzo del PC IBM. 

74 pagine 

Cod. 018 H • Lire 8.500 / Abbonati Lire 6.800 

KING-WALLER 

MS/DOS 

Tutto, e in breve, sul sistema operativo più diffuso. 

54 pagine 

Cod. 019 H • Lire 8.500 / Abbonati Lire 6.800 

KING-WALLER 
PC/DOS 

I comandi e le utility del sistema operativo del PC IBM. 
58 pagine 

Cod. 012 H • Lire 8.500 / Abbonati Lire 6.800 

BLACKBURN-TAYLOR 

CP/M 

Tutti i segreti e comandi del CP/M. 70 pagine 
Cod. 011 H • Lire 8.500 / Abbonati Lire 6.800 
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MSX 


N ello standard MSX è stato a- 
dottato un microprocessore 
video familiare ai possessori 
del TI99/4A, il TI TMS-9929A o 
uno analogo (vedi TM9918 della Sony). 
Il modo in cui è organizzata la memoria 
in questi computer non si discosta mol¬ 
to da quello, ad esempio, di un Commo¬ 
dore 64. Per di più, mentre in quest'ulti¬ 
mo si deve necessariamente esercitare 
una lunga pratica con le Peek e le Poke, 
con il TI 99/4A non si può accedere 
normalmente alla VDP RAM, a meno 
che si sia espanso il sistema con un 
modulo Editor/Assembler. Il ''texano 1 ', 
tuttavia, ha a disposizione una marcia 
in più per quanto riguarda alcuni modi 
d’accesso alla memoria-video: ci riferia¬ 
mo alle istruzioni Cali Char, Cali Char- 
pat e Cali Charset, con le quali può 
modificare la mappa di memoria dove è 
conservata la forma dei caratteri, po¬ 
tendo così ridefinirli a suo piacimento. 
Perché dovrebbe essere necessario 
creare dei caratteri personalizzati 


Uno sguardo 
nella VDP RAM 

Comprendiamo meglio l’organizzazione 
della RAM 

. h Sergio Borrarv 


consiste nell'imparare come è organiz¬ 
zata la VDP RAM, cioè la memoria riser¬ 
vata al video, e modificare la forma (in 
alcuni manuali si parla di profilo o, con 
termine originale, di pattern) di alcuni 
caratteri. Sarà il loro accostamento, co¬ 


ria provoca il panico, ed effettivamente 
non si deve usare questa istruzione (o 
una Vpoke) in modo indiscriminato, 
perché c'è il rischio di mandare in tilt il 
computer e dover procedere a un reset 
di sistema. Tuttavia la cosa non deve 
spaventare, perché la memoria è orga¬ 
nizzata in modo molto semplice e linea¬ 
re. 

Consideriamo la VDP RAM di un qual¬ 
siasi sistema MSX. Ci sono due segmen¬ 
ti principali: il primo contiene i codici 
ASCII dei caratteri presenti in ogni loca¬ 
zione del video, il secondo contiene la 
forma dei caratteri (profilo o pattern). I 
dati sono posti sequenzialmente ed o- 
gni locazione è contraddistinta da un 
indirizzo; conoscendo il primo e l'ultimo 
indirizzo di ogni tabella si può alterarne 
senza difficoltà il contenuto. 

Poiché l'MSX-BASIC prevede due modi 
testo e due modi grafici, è opportuno 
riferirci a uno di questi in particolare. 
Partiamo dal modo testo 2, che è tra 
tutti quello che presenta minori difficol¬ 
tà. Esso si seleziona con il 
comando/istruzione Screen 1 e com¬ 
porta un video suddiviso in 24 righe di 
32 caratteri, per un totale di 768 posizio¬ 
ni (il normale video del TI). Tali posizioni 
sono numerate dalla n. 0 alla n. 767, a 
partire dall’indirizzo contenuto nella va¬ 
riabile Base(5). Cosi, leggendo la map¬ 
pa di memoria da Base(5) a 
Base(5) + 767 con l’istruzione Vpeek, 
troveremo i codici ASCII dei caratteri 
presenti sullo schermo, cominciando 
dall'angolo in alto a sinistra e proce¬ 
dendo nel senso della scrittura, da sini¬ 
stra a destra e dall’alto in basso. 



quando il set MSX è così ampio da com¬ 
prendere anche lettere dell'alfabeto 
greco o simboli matematici, come quel¬ 
lo che indica l’infinito, o l'esponente 2 o 
le frazioni 1/4, 1/2 e 3/4? Vi siete mai 
chiesti come si può creare un titolo a 
caratteri cubitali o un disegno per una 
scenografia? Utilizzare degli sprite non 
è consigliabile, dal momento che non 
ne possono coesistere più di quattro 
sulla medesima riga orizzontale. Il mo¬ 
do corretto per affrontare il problema 


me in un puzzle o in un mosaico, a 
creare l'immagine desiderata. 

Molto spesso a chi ha poca dimesti¬ 
chezza con la programmazione l'idea di 
usare una Poke per inserire un valore 
direttamente in una locazione di memo¬ 
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Quindi, invece di usare l’istruzione Print 
potremmo inserire un codice ASCII in 
una di queste locazioni usando l’istru¬ 
zione Vpoke. Ad esempio, Vpoke 
Base(5)+ 384,42 fa apparire un asteri¬ 
sco nel bel mezzo dello schermo. Il com¬ 
puter possiede una tabella dalla quale 
può trarre la forma del carattere di codi¬ 
ce ASCII 42 e naturalmente anche quel¬ 
la di tutti gli altri presenti sulla tastiera. 
La tabella dei profili è un po' più difficile 
da capire e per questo è necessario 
sapere come sono fatti i caratteri che 
appaiono sullo schermo. 

Ogni simbolo è formato da tanti punti¬ 
ni luminosi (pixel); per ognuno ce ne 
sono 64, disposti a formare un quadrati¬ 
no di 8 x 8 punti. La figura 1, più di ogni 
altra spiegazione, farà capire come la 
diversa disposizione dei punti possa far 
apparire i caratteri che siamo soliti ve¬ 
dere sullo schermo. Tuttavia, se potessi¬ 
mo guardare direttamente con i nostri 
occhi il contenuto della memoria, non 
vedremmo niente di simile; da quel man- 



Figura 1 - Ogni carattere che appare sullo scher¬ 
mo é definito In una matrice di 8 x 8 punti. A un 
punto corrisponde un bit di memoria; sono quin¬ 
di necessari 8 byte per memorizzare un caratte¬ 
re. 


gia-numeri che è, il computer trasforma 
tutto in una sequenza di 0 e di 1, di stati 
On e di stati Off. Un byte è sufficiente a 
contenere l'equivalente binario di una 
serie di otto punti e quindi sono neces¬ 
sari 8 byte per un intero carattere. 

La tabella dei profili inizia alla locazione 
Base (7) e si estende fino alla Base 
(7) + 2047. La forma del carattere di co¬ 
dice ASCII 42 è memorizzata negli 8 byte 
che vanno da Base(7) + 42 ★ 8 a 
Base(7) + 42 ★ 8 + 7. Indirizzando dei 
particolari valori decimali in queste lo¬ 
cazioni di memoria, saremmo in grado 
di cambiare la forma dell'asterisco (co¬ 
dice ASCII 42), ma prima dobbiamo sa¬ 
pere quale numero far corrispondere a 
una particolare sequenza di punti. 

Per chi ha qualche conoscenza sul 
sistema binario di numerazione, e non 
sono pochi, se si pensa che oggi lo si 
insegna comunemente nella prima Me¬ 
dia, basterà dire di scrivere uno 0 per 
ogni punto spento ed un 1 per ogni 
punto acceso; si otterrà così un numero 


Listato 1 - Programma di prova per ottenera la sigla MSX 

In arande. 

290 

DATA 

31, 

31,3 

1,31,31,31,31,15 





300 

l'ATA 

240 

,224 

,224,240, 

255,255,255,255 

10 

REM 

CARA 

iTTERI PROGRAMMABILI 

310 

DATA 

0,0 

,0,0 

,255,255, 

255,255 

20 

REM 


MOl'O TESTO 2 

320 

l'ATA 

0,0 

,0,0 

, 224,248, 

252,254 

30 

SCREEN 1 ; W 

IIDTH 32 : COLOR 15,4,4 

330 

l'ATA 

6 3, 

15,7 

,3,1,0,0, 

0 

40 

B1 = E A 

SE < 5 > 

•B2=BASE<7> 

340 

l'ATA 

252 

,254 

,255,255, 

255,255,127,63 

50 

FOR W 

= 1600 

TO 1879 : REAI' N 

350 

l'ATA 

6 3, 

127, 

255,255,255,255,254,252 

60 

IF N< 

0 OR 

N>255 THEN 90 

360 

l'ATA 

248 

, 240 

,224,192, 

128,0,0,0 

70 

UPOKE 

B2 + W 

,N : NEXT U 

370 

DATA 

7,3 

,0,0 

,0,0,0,0 


30 

READ 

N 


388 

l'ATA 

224 

, 192 

, 0,0,0,0, 

8,0 

90 

FOR RO=10 

TO 13 : FOR CO=10 TO 21 

390 

DATA 

15, 

7,3, 

0,0,0,0,128 

100 

READ 

N : 

IF N<32 OR N>234 THEN END 

400 

l'ATA 

255 

,255 

,255,255, 

0,0,0,0 

110 

L0 = B 

1+ (R0 

-1>*32+C0 : UPOKE LO,N 

410 

l'ATA 

255 

,255 

,255,255, 

1,0,0,1 

120 

NEXT 

CO : 

NEXT R0 

420 

l'ATA 

254 

,255 

,255,255, 

255,255,255,255 

130 

ENI) 



430 

DATA 

255 

,255 

,255,255, 

255,126,126,60 

14 0 

l'ATA 

15,5 

1,103,79,255,255,255,255 

440 

DATA 

255 

,255 

,255,127, 

127,63,31,7 

150 

l'A T A 

0,19 

2,224,240,248,252,254,255 

450 

DATA 

255 

,255 

,255,254, 

254,252,248,224 

160 

I 1 AT A 

0,3, 

7,15,31,63,127,255 

460 

DATA 

63, 

127, 

255,255,2 

55,255,126,60 

170 

l'ATA 

240, 

156,62,254 255,255,255,255 

470 

DATA 

31, 

15,7 

,3,1,0,0, 

0 

130 

l'ATA 

0,3, 

7,14,15,31,31,31 

480 

DATA 

252 

,254 

,255,255, 

255,255,126,60 

190 

l'ATA 

255, 

128,15,127,255,255,255,255 

490 

DATA 

999 




200 

l'ATA 

255, 

0,255,255,255,255,255,255 

500 

DATA 

200 

, 201 

,202,203, 

204,205 

210 

l'ATA 

255, 

15,255,255,255,255,255,255 

510 

DATA 

206 

, 207 

,208,209, 

210,211 

220 

l'ATA 

248, 

254,255,255,255,255,255,255 

520 

DATA 

212 

, 213 

,214,212, 

215,216 

230 

l 1 AT A 

0,0, 

0,123,192,224,240,248 

530 

DATA 

217 

, 218 

, 219,220, 

221,222 

240 

DATA 

0,0, 

0,1,3,7,15,31 

540 

DATA 

212 

,223 

,224,242, 

225,226 

250 

l'ATA 

60,1 

02,207,191,255,255,254,252 

550 

DATA 

227 

, 228 

,210,221, 

220,209 

260 

l'ATA 

255, 

255,255,255,255,255,255,255 

560 

DATA 

229 

,32, 

32,230,20 

6,212 

270 

l'A T A 

255, 

255,255,255,255,63,31,15 

570 

DATA 

212 

, 231 

,232,222, 

233,234 

280 

l'ATA 

255, 

255,255,255,255,252,248,240 

580 

DATA 

999 
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Il tuo "cervello" in piu 
è Giapponese 

I giapponesi sono pìccoli? Alcuni si. Ma sono 
anche molto robusti, veloci di riilessi e dolati di 
un'intelligenza viva e poliedrica, Proprio come 
TOSHIBA TllOO, il personal computer così picco¬ 
lo e maneggevole da entrare comodamente in 
una 24 ore, ma così potente da poter competere 
con i personal da tavolo di prezzo notevolmen¬ 
te superiore, Perchè TOSHIBA TllOO, oltre ad ave¬ 
re un rapporto prezzo-prestazioni eccezionale è 
tecnologicamente superiore e totalmente com¬ 
patibile con il PC IBM® e con il suo software. 

Con una memoria di 256 Kbyte, espandibile a 
512 Kbyte, un video a cristalli liquidi con una ri¬ 
soluzione grafica dì 640x200 pixel, oltre all'in¬ 
terfaccia standard RGB e video composito, un 
disk drive interno da 720 Kbyte, la possibilità di 
un secondo drive esterno e un'autonomìa di ol¬ 
tre otto ore con le batterie ricaricabili, TOSHIBA 
TllOO è molto di più di un personal portatile. È 
un vero cervello in più, ma non pensa avida¬ 
mente al vostro denaro. 




i 


ToshibaTllOO 


* 1 % 



IBM e IBM PC sono marchi registrali dalla International 
Business Machines Corporation 


TOSHIBA 


COmPUTER 

Madein Japan 
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Figura 2 - Ai punti 
che formano II 
carattere 
(foreground) 
corrispondono bit In 
posizione On, mentre 
agli altri 
(background) 
corrispondono bit 
nello slato Off. 

Poiché ogni bit ha un 
valore decimale che 
dipende dalle 
potenze di 2, non è 
difficile ricavare II 
numero decimale 
associato a una 
qualsiasi 
disposizione di 8 
punti. 


binario, dal quale si ricaverà il corri¬ 
spondente decimale. Per chi invece è 
ancorato a nozioni matematiche più 
tradizionali, senza la pretesa di trattare 
esaurientemente l’argomento, daremo 
una semplice regola pratica. Disegnata 
una fila di 8 punti, in parte accesi e in 
parte spenti, assegnare ad essi i se¬ 
guenti valori, cominciando da destra e 
procedendo verso sinistra: per ogni 
punto spento valore 0; per quelli accesi, 
1, se il punto è nella prima posizione, 2, 
se è nella seconda, 4 nella terza, 8 nella 
quarta, 16 nella quinta, 32 nella sesta, 
64 nella settima e 128 nell’ottava; al ter¬ 
mine sommare tutti i valori così ottenuti 
(vedi figura 2). 

Il listato 1 è un programma di prova per 
ottenere la sigla MSX in formato gigan¬ 
te, tale da richiedere un totale di 12 x 
4 = 48 normali caratteri. La scritta è sta¬ 
ta ottenuta prima su un foglio simile alla 
carta millimetrata; da questa si sono 
potuti ottenere i valori decimali conte¬ 
nuti nelle istruzioni Data. 


Listato 2 - Ora la sigla MSX è stampata nel modo testo 1. 


10 REM CARATTERI PROGRAMMABILI 
20 REM MODO TESTO 1 

SO S C R E E N 0 '■ W11) T H 4 0 C 0 L 0 R 15,4,4 
4 0 B1 = BA S E(0>: E 2 = B A S E(2 ') 

50 FOR 14 = 1600 T0 1879 : READ N 
60 IF N<0 OR N>255 THEN 90 
70 UPQKE B2 +14 , N : NEXT 14 
80 READ' N 


9@ 
100 
110 
120 
13 0 
140 
150 
160 
170 
180 
190 
20 ù 
210 
220 
23Ó 
24 0 
250 
260 
27 0 
280 


FOR R0 = 10 T0 13 : FOR C 0 = 14 Tu 25 
READ N : IF N<32 OR N>234 THEN ENI» 

L0 = B1 + <R0 -1 >*40 + C0 ' VF’OKE LÙ,H 

NEXT CO : NEXT R0 

END 

DATA 60,68,140,188,188,252,252,252 
DATA 0, 192,224,240,248,-252,252,252 
DATA 0,12,24,60,124,252,252,252 
DATA 240,24,124,252,252,252,252,252 
DATA 4,8,24,20,20,28,28,28 
DATA 252,0,124,252,252,252,240,224 
DATA 252,0,252,252,252,252,0,0 
DATA 252,60,252,252,252,252,0,0 
DATA 240,252,252,252,252,252,252,124 
DATA 0,0,128,128,192,224,224,240 
DATA 0,0,4,4,12,28,28,60 
DATA 112,152,188,124,252,252,243,248 
DATA 252,252,252,252,252,252,252,252 
DATA 252,252,60,28,12,0,0,0 
DATA 252,252,240,224,192,0,0,0 


290 DhTA 23,23,28,28,28,28,28,28 

300 DATA 224,224,224,224,224,240,252,252 

310 DATA 0,0,0,0,0,0,252,252 

320 DATA 0,0,0,0,0,0,240,248 

330 DATA 60,60,28,12,12,4,0,0 

340 DATA 248,252,252,252,252,252,252,124 

350 DATA 124,252,252,252,252,252,252,248 

360 DATA 240,224,224,192,128,128,0,0 

370 DATA 28,28,12,4,0,0,0,0 

380 DATA 252,252,252,252,0,0,0,0 

390 DATA 252,252,252,252,4,0,0,0 

400 DATA 252,252,252,252,252,252,120,48 

410 DATA 252,252,252,252,252,252,124,60 

420 DATA 0,128,252,252,252,252,252,252 

430 DATA 0,0,252,252,252,252,252,252 

440 DATA 0,4,252,252,252,252,252,252 

450 DATA 252,252,252,252,252,252,248,240 

460 DATA 60,124,124,124,124,124,60,28 

470 DATA 240,248,248,252,252,252,248,112 

48Ó DATA 252,254,255,255,255,255,126,68 

490 DATA 999 

500 DATA 200,201,202,203,204,205 
510 DATA 206,207,208,209,210,211 
520 DATA 212,213,214,212,215,216 
530 DATA 217,218,219,220,221,222 
540 DATA 212,32,32,212,223,224 
550 DATA 225,212,210,221,220,209 
560 DATA 226,32,32,227,228,229 
570 DATA 230,231,232,222,219,233 
580 DATA 999 
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Pamtstar ti da molto con poco 


Paintstar colora le tue idee 

Paintstar rende facile creare immagini a 
colori sullo schermo dell’Apple II con il 
semplice uso di un joystick. Paintstar è 
comandato a icone, simili a quelle del Ma¬ 
cintosh, e ti offre una completa scelta di 
comandi grafici, con risposta immediata, 
sul video. 

Puoi disegnare a mano 
libera, o usare linee, 
rettangoli, cerchi, 
ellissi. Puoi usare 
una penna od 
un pennello 
della forma 
e del colo¬ 
re desi¬ 
dera¬ 
ti. à 


Riesce meglio 
g con Paintstar 

Paintstar ti offre gli 
strumenti per dise¬ 
gnare con poco lavoro e 
molti risultati. Puoi spo¬ 
stare oggetti e copiarli. Pu¬ 
oi riempire aree del colore 
desiderato, oppure con un reti¬ 
no di tuo disegno. Puoi scrivere, 
usando caratteri dello stile preferito 

E, naturalmente, puoi anche stampare il 
risultato del tuo lavoro, oltre a registrarlo 
su disco. 


Paintstar è per Apple Ile e Ile. Richiede joystick. 


Viole Restelli, 5 • 20124 Milano • Tel. 02/6888228 • 683797 - 6880841 - 6880842 - 6880843 


L acquisto di software originale significa: garanzia di prodotto, possibilità di sostituzione anche nel caso di versioni aggiornate o di versioni nazionalizzate. 
Esigete sempre software originale. 









CHR*U3+CHR*Cb53 


MODO 

TESTO 



Figura 3 - Nel modo 
testo 1 per consentire 
la stampa di 40 
caratteri per riga 
vengono mostrate 
solo le prime 6 
colonne di punti ed 
alcuni simboli grafici 
vengono così 
troncati; nel modo 
testo 2 la matrice è di 
8x8 punti. 


Il programma consiste essenzialmente 
in due cicli For-Next, linee 50-80 e 90- 
120, e due gruppi corrispondenti di i- 
struzioni Data. Il primo ciclo modifica la 
forma dei caratteri a partire da quello di 
codice 200; la linea 60 controlla che il 
valore sia lecito, cioè tra 0 e 255, per 
prevenire errori di trascrizione o di batti¬ 
tura che non sono infrequenti. Il secon¬ 
do ciclo legge l'altro gruppo di istruzioni 
Data, contenenti i numeri dei codici A- 
SCII dei caratteri modificati e li carica 


nella mappa di memoria del video, dopo 
che la linea 110 ha calcolato la giusta 
locazione (LO) a partire dal numero di 
riga (RO) e di colonna (CO). 

Nel modo testo 1, ottenibile con l’istru¬ 
zione Screen 0, le cose non vanno molto 
diversamente. Lo schermo viene diviso 
in 24 righe di 40 caratteri ciascuna; in tal 
modo la mappa di memoria consta di 24 
x 40 = 960 locazioni, iniziando dall’indi¬ 
rizzo contenuto nella variabile Base(0). 
La tabella dei profili dei caratteri inizia 



Figura 4 -1 due 
programmi 
dimostrativi, di cui 
sono stati riportati I 
listati, ridefinlscono 
alcuni caratteri, 
modificando II 
contenuto della 
tabella del profili, in 
modo da creare la 
sigla MSX In formato 
gigante. 


da Base (2) e si estende fino a Base 
(2)+ 2047, come in precedenza, dato 
che il numero dei caratteri è sempre lo 
stesso. 

Un'ulteriore differenza è dovuta al fatto 
che per far rientrare 40 caratteri in una 
riga questi devono essere più stretti dei 
precedenti. 

Nel modo testo 2 i simboli vengono defi¬ 
niti in una matricedi8x8 punti: normal¬ 
mente le prime cinque colonne di punti 
contengono il carattere, mentre le ulti¬ 
me tre garantiscono la spaziatura tra 
un carattere e l’altro. 

Nel modo-testo 1 i caratteri vengono 
sempre definiti in una matrice di 8 x 8 
punti, ma solo le prime 6 colonne ven¬ 
gono visualizzate sullo schermo, men¬ 
tre le ultime due vanno perdute. Si può 
rendere evidente questo fatto stampan¬ 
do, ad esempio, il simbolo grafico che 
riproduce la faccia di un omino nei due 
modi testo; si noterà come in un caso la 
faccia non sia completa (vedi figura 3). 
Bisogna quindi far attenzione nel cari¬ 
care in memoria i valori decimali con le 
VPoke, poiché per ogni byte sono signi¬ 
ficativi solo i primi 6 bit di sinistra, con i 
valori rispettivamente di 128, 64,32,16,8 
e 4; i due bit di destra possono indiffe¬ 
rentemente esser posti in On o in Off. 

Il listato 2 contiene un programma di¬ 
mostrativo per stampare la sigla MSX 
nel modo testo 1. 

Un ultimo consiglio. Se necessario è 
preferibile ridefinire i caratteri con nu¬ 
mero di codice ASCII più alto e riservare 
i simboli alfanumerici per i testi e per i 
messaggi che solitamente accompa¬ 
gnano ogni programma. 

Non si tocchi il carattere 32, cioè lo spa¬ 
ce, per non incorrere in strane visioni 
delle quali possono godere solo i mira¬ 
colati. I numeri hanno un codice che va 
dal 48 (lo zero) al 57 (il nove), le lettere 
maiuscole occupano l'intervallo da 65 a 
90, mentre le minuscole quello da 97 a 
122: la sorte quindi tocca a quei simboli 
che hanno un codice ASCII maggiore, 
di solito dal 128 in poi e non oltre il 255, 
ultimo carattere del set. ■ 
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Uno sguardo nella VDP RAM 



UDP RAM NEL MODO TESTO 1 


SCHERMO MEMORIA UIDEO 


TABELLA PROFILI 



2Ò47 


BASEC2] 


00100000 = 32 
101Q1080 -168 
01110000 =112 
00100080 = 32 
01110000 =112 
10101000 =168 
00100000 = 32 
00000000 = 0 


Figura 5 - Le parti più 
Importanti della VDP 
RAM sono la mappa 
di memoria del video 
e la tabella dei profili, 
cioè delle forme del 
caratteri. Ogni 
elemento delia 
mappa contiene il 
numero di codice 
ASCII del carattere 
preaente in una data 
posizione dello 
schermo e ad ogni 
carattere corrisponde 
una sequenza di 8 
byte nella tabella del 
profili. 


UDP RAM NEL MODO TESTO 2 


SCHERMO 


MEMORIA UIDEO 



TABELLA PROFILI 



2047 


00100000 
10101800 
01110000 
08100000 
01110008 
10181000 
00100000 
00000000 


-168 


-168 
= 32 
= 0 


Figura 6 - Nel modo 
testo 2 la mappa di 
memoria del video è 
più limitata. In 
compenso I simboli 
grafici vengono 
visualizzati In modo 
più completo ed 
esiste una maggiore 
libertà nell’uso del 
colori, in virtù di una 
tabella di memoria 
non riprodotta nella 
figura. 
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uso degli home computer 
per programmi didattici si 
sta estendendo soprattutto 
grazie alla loro diffusione 
capillare nelle famiglie e ultimamente 
anche in numerose scuole. 

Particolare importanza assumono i 
programmi grafici, principalmente per il 
supporto che l'immagine visiva fornisce 
all'intuizione. 

In quest’ottica si pongono numerose 
routine di utilità, le quali permettono la 
rappresentazione di figure tridimensio¬ 
nali sullo schermo. 

Anche questo articolo si occupa del 
problema della rappresentazione tridi¬ 
mensionale, presentando un program¬ 
ma implementato sul C 64 con l'utilizzo 
dell'ormai insostituibile tool Simons' BA¬ 
SIC. 



Prospettiva 
e grafica 
tridimensionale 

Come ottenere splendidi effetti grafici 

di Stefano Cime etimi 


L’idea è semplice; supponiamo di por¬ 
re un oggetto (un dado, per esempio) 
sopra un tavolo. Ogni vertice della figu¬ 
ra verrà osservato dal vostro occhio si¬ 
tuato in un punto dello spazio esterno 
all’oggetto (punto di vista). 

Immaginate ora di frapporre tra l’ogget¬ 
to e il vostro occhio uno schermo piano 
trasparente, in modo tale che guardan¬ 
do l’oggetto, possiate tracciare sul me¬ 
desimo i vertici cosi dove vi appaiono e 
successivamente i lati che collegano i 
suddetti vertici. 

Otterrete cosi (figura 1) un disegno bidi¬ 
mensionale sul piano convenzional¬ 
mente posto come schermo, che con- 


Flgura 1 - 
I principio 
della visione 
prospettica. 


oggetto rappresentare, il programma lo 
farà proiettare sopra uno schermo vir¬ 
tuale. Le caratteristiche di questa pro¬ 
cedura, sono le seguenti: 


Punto di vista 
(P.V.) 


serverà per il vostro occhio lo stesso 
aspetto configurazionale dell'oggetto 
tridimensionale. 

È questo, descritto in modo un poco 
semplificato, il principio della visione 
prospettica. 



plano di 
proiezione 
(P.P. 


Il programma 

Il programma 3D, che qui di seguito 
viene proposto, esegue esattamente le 
operazioni descritte. 

Infatti, dopo che avrete decìso quale 
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1 ) il punto di vista è scelto dall'operatore 
e può essere un qualsiasi punto dello 
spazio (con la sola esclusione dei punti 
che sono sulla verticale dell’oggetto); 

2) il piano virtuale può essere posto in 
qualsiasi punto tra l’oggetto e il punto di 
vista; 

3) il riferimento tridimensionale è man¬ 
tenuto al centro dello schermo virtuale; 

4) non vi sono limiti al numero di vertici 


Figura 3a,b,c - 
Incollamento 
della fibra x, y ed r. 



Figura 2 - 
Rappresentazione 
di superflcl funzionali 
mediante 
l’Individuazione 
delle fibre x. 


delle figure poliedriche. 

L’effetto di questa impostazione è che 
l'oggetto vi apparirà piccolo o grande a 
seconda di come spostiate la posizione 
del piano virtuale, e inoltre potrete os¬ 
servarlo da ogni posizione. 

Non sempre l'immagine sarà “elegan¬ 
te", soprattutto se scegliete i parametri 
a caso, ma dopo qualche esperimento 
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potrete osservare il vostro oggetto dal¬ 
l'angolo visuale più opportuno. 

Superfici e solidi 

La vista prospettica è stata utilizzata 
per osservare tre tipi fondamentali di 
oggetti tridimensionali: 

a) superfici funzionali 
[funzioni z = f(x,y) ]; 

b) superfici empiriche [ per punti ]; 

c) oggetti poliedrici [solidi). 

Per quanto riguarda le prime, esse ven¬ 
gono inserite dall’utilizzatore, tramite la 
legge funzionale, nel programma e ven¬ 
gono tracciate scegliendo tra quattro 
possibili modalità. 

A questo proposito ricordiamo breve¬ 
mente che, considerata una superficie 
qualsiasi, possiamo pensare di interse¬ 
carla con un piano parallelo al piano 
(z,y), ottenendo come risultato una li¬ 
nea spaziale (figura 2). 

Chiameremo tale linea una fibra x. Ogni 
altro piano parallelo al primo individue¬ 
rà una fibra x diversa dalla prima. 

La superficie può allora essere pensata 
come l’accostamento (incollamento) di 
tutte le fibre x (figura 3a). 

Ma possiamo anche condurre un pia¬ 
no parallelo al piano coordinato (x,z), 
ottenendo una nuova curva spaziale 
che verrà detta fibra y; ogni altro piano 
parallelo al primo individua tutte le fibre 
y che per incollamento formano nuova¬ 
mente la superficie di partenza (figura 
3b). 

Vi è infine la possibilità di creare fibre r, 
ottenute intersecando la superficie con 
tanti cilindri concentrici, e ricavando la 
superficie ancora per incollamento di 
tutte le fibre r (figura 3c). 

Questo a grandi linee, supponendo per 
le superfici una certa regolarità, è quello 
che si può fare. 

Nel nostro caso si può scegliere da pro¬ 
gramma di vedere la superficie come 
formata dalle sole fibre x, dalle sole fibre 
y, o da entrambe, nonché dalle fibre r. 

Le quattro possibilità corrispondono 
ovviamente alla rappresentazione in 
coordinate cartesiane x,y (singolar¬ 
mente o in coppia) e in coordinate pola¬ 
ri. 

Tutto ciò consente uno studio flessibile 
delle superfici tridimensionali. 

Ma in molti casi non si ha a disposizione 
una legge funzionale per rappresentare 
la superficie; si ha invece un insieme di 
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Figura 4a,b - 
Rappresentazione 
di valori di quota 
utilizzando 
un reticolo x,y. 



p.v. 30, •*, 30 


dist.piùrw 30 



Figura 5 - 
Funzione empirica 
approssimante 
una più complessa 
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misure ottenute praticamente (si pensi 
alle quote di una certa zona geografi¬ 
ca). 

In questo caso è possibile che si abbia a 
disposizione un insieme di valori di quo¬ 
ta misurati secondo un certo reticolo 

(x.y). 

Il programma dà la possibilità di inserire 
i valori misurati tramite un reticolo car¬ 
tesiano, e di tracciare la superficie rela¬ 
tiva. 

Facciamo un esempio. 

Supponiamo di avere a disposizione un 
reticolo 6x6, posizionato al centro del 
sistema di riferimento. Abbiamo 49 diffe¬ 
renti quote da memorizzare. 

Se utilizziamo come parametri la massi¬ 
ma espansione x e y del reticolo (che 
supporremo sempre simmetrico rispetto 
ad entrambi gli assi) e i quarantanove 
valori di quota, il programma è in grado 
di tracciare la superficie corrisponden¬ 
te, utilizzando il reticolo (x,y) (figura 



Figura 6 - Numerazione degli 8 vertici di un 
cubo. 


4a,b). 

Uso interessante di questa modalità di 
rappresentazione, può essere quello di 
verificare la forma di una funzione em¬ 
pirica P(x,y) approssimante di una più 
complessa funzione F(x,y). In figura 5 si 


vede un esempio. 

Un capitolo a parte, per l'uso che può 
essere fatto, è quello riguardante gli og¬ 
getti poliedrici. 

La maggior difficoltà in questi casi sta 
nel fatto che occorre comunicare non 
solo la posizione dei vertici, ma anche 
come sono collegati. 

Il problema è stato risolto nel modo se¬ 
guente. 

Il numero dei vertici, a scelta dall'utiliz- 
zatore, non ha limiti se non quelli impo¬ 
sti dalla memoria, dal buon senso e dal¬ 
la pazienza. 

In realtà se il numero dei vertici è inferio¬ 
re a 20, il programma esegue una routi¬ 
ne semplificata che aiuta l’utente, se è 
superiore occorre digitare in modo di¬ 
retto le informazioni richieste. 

Per intenderci, nel primo caso, dopo a- 
ver dichiarato il numero dei vertici e aver 
caricato le rispettive coordinate, com¬ 
pare una matrice di incidenza che deve 


Listato 1 - Il programma 3D. 


1 PRINT"{CLR}" : 

PRINT"{ 2 SPAZI} [<M>] [<*>] {RVS} 

{ 4 SPAZI} [<*>] {OFF} [<M>] [<*>] {RVS} 

{ 3 SPAZI}[<*>]{OFF}{ 2 SPAZI}" 

2 PRINT"{ 2 SPAZI}[<M>] 0[< 3 Y>]P[<M>] 
0[< 3 Y> ] M { 2 SPAZI}" 

3 PRINT"{ 3 SPAZI} [<*>]L [< 2 P>] [<N>] 

[<M>] [<H>] { 4 SPAZI}M" 

4 PRINT"{ 4 SPAZl}N N N[<M>] [<H>] OM 

[<N>] " 

6 PRINT"{ 4 SPAZI}[<*>] [<H>] [<Y>]M [<M>] 

[<H>] [<H>][<N>] [<N>]" 

7 PRINT"{ 5 SPAZI}PM [<N>][<M>] [<H>] 

[<H>] [ <N>] [ <N>]" 

8 PRINT"{ 5 SPAZI}N[<M>) [<N>][<M>] [<H>] 

LN [ <M>]" 

9 PRINT" [<M>][<*>]{RVS}{ 3 SPAZl}{OFF} 

£ [<N>] [<M>] [<H>] { 4 SPAZI}N" 

10 PRINT" [<M>] 0[< 2 Y>]{ 2 SPAZI}N 
[< *>]L [ < 3 P>]N Z Z" 

11 PRINT"{ 2 SPAZI}[<*>]L[< 3 P>]NBY CHEC 
CHINI" 

13 PAUSE 5 

14 REM-MENU'- 

15 ON ERROR: GOTO 6000 

20 PRINT"{CLR}"; : 

25 PRINT"{RVS}{BLU} PROCEDUREf 30 SPAZI} 
"SPRINT"{ 6 GIU'}" 

30 PRINT" {RED}!) FUNZIONI IN COORDINATE 
CARTESIANE":PRINT 

32 PRINT" {RED}2) SUPERFICI NON FUNZIONAL 
I (A PUNTI)"SPRINT 


35 PRINT" {RED}3) POLIEDRI{ 24 SPAZl}"sPR 
INT 

40 PRINTsPRINTSINPUT" {RVSjQUALE PROCEDUR 
A ?" ;PR : PRINT"{CLR}";SPRINT:POKE 680 
,INT(PR) 

41 PR=INT(PR) 

45 ON INT(PR) GOTO 400,900,500 

50 REM-INI ZIALIZZAZIONE- 

53 UX = 40sUY = 40 

55 PRINT"{CLR}"SPRINT"{BLU} INTRODUCI LE 
COORDINATE DEL PUNTO DI"SPRINT" VISTA 
1"s PRINT 

60 PRINT" {RVS}{BLK}";X0;s PRINTTAB(4)" 

{OFF}>";sINPUT" {RVS}COORDINATA X=";X0 

65 PRINT" {RVS} {BLK}" ,*Y0; sPRINTTAB(4) " 

{OFF}>"; 5 INPUT" {RVS}COORDINATA Y = ";Y0 

75 PRINT" {RVS} {BLK}" ,* Z0; s PRINTTAB (4) " 

{OFF}>";SINPUT" {RVS}COORDINATA Z=";Z0 
SPRINT 

80 PRINTSPRINT" {RVS}{BLK}";DS; S PRINTTAB( 
4)"{OFF}>";SINPUT" DISTANZA PIANO DI P 
ROIEZIONE";DS 

82 IF DS>SQR(X0 12+YO 12 + ZO 12)THENPRINT" 

{RVS}DISTANZA OLTRE IL PUNTO DI VISTA" 

S GOTO 80 

90 PRINT 

94 PRINT" DIMENSIONI DOMINIO DI DEFINIZIO 
NE"SPRINT" {RVS}{BLK} VALORI ATTUALI 
{OFF} {RVS}"; Al ;B1 

95 PRINT 

96 INPUT" DIMENSIONE X = "; AlsINPUT" DIMENS 
IONE Y=";B1sINPUT" DIMENSIONE Z=";Cl 















Seguito listato 3D. 


97 IF DS<SQR(A1T2 + B1t2)THENPRINT"(RVS)DIM 
ENSIONI TROPPO AMPIE PER IL P.VISTA":G 
0T096 

98 REM UX=(160/Al OR 20):REM UY=(160/B1 0 
R 20) 

100 REM-CALCOLI PER IL PIANO- 

DI PROIEZIONE 
110 P0=X0*X0+Y0*Y0: Pi=SQR(P0) 

120 D0=SQR(X0*X0+Y0*Y0+Z0*Z0) 

13 0 XS=X0* (D0*DS)/P0:YS=Y0* (D0*DS)/P0 
140 D1=SQR(XS*XS+YS*YS) 

150 XC=X0*DS/D0:YC=Y0*DS/D0:ZC=Z0*DS/D0 

155 REM-TRACCIA DEL RIFERIMENTO- 

160 HIRES 1,0 

170 Y=0:Z=0 

175 X=A1 

180 GOSUB 4100 

190 FOR V=0 TO 1 STEP .03: 

PLOT 160+V*PX,100+V*PY,1 :NEXT 
195 TEXT150+PX,90+PY,"{B}X",1,1,6 
200 X=0::Y=B1:Z=0 
210 GOSUB 4100 
220 FOR V=0 TO 1 STEP .03: 

PLOT 160+V*PX,100+V*PY,1 :NEXT 
225 TEXTl55 + PX,90 + PY,"{B)Y",l ,1 ,6 
230 x = 0: :Y = 0:Z=C1 
240 GOSUB 41 00 
250 FOR V=0 TO 1 STEP .03: 

PLOT 160,100-V*98,1 :NEXT 
265 TEXTl5,192,"{B} P.V. "+STR$(X0)+","+ 
STR$(Y0)+","+STR$(Z 0) ,1,1,6 
270 TEXTl85,192,"{B} DIST.PIANO "+STR$(D 
S) ,1 ,1 ,6 
275 PAUSE 5: 

280 ON PEEK(680) GOTO 1600,1600,3000 

400 REM-INPUT DELLA FUNZIONE- 

405 PRINT" {CLR}"; : PRINT" { 3 GIU’HdES) 

{RVS} INTRODUCI LA FORMULA DELLA FUNZ 
IONE ":PRINT:PRINT 
410 INPUT"{ 2 SPAZI}F(X,Y)=";FU$ 

420 POKE 198,3:POKE631,19:POKE632,!3: 
POKE63 3,1 3 

430 PRINT"{CLR} [<8>]480 DEF FNA(X)="FU$": 
RETURN" 

440 PRINT"[<8>]GOTO 450":SYS 42115 
450 GOSUB 480 
460 BT=0: GOTO 50 

480 DEF FNA(X)=3*SIN(X t 2+Y t 2 )/ (Xt 2+Yt 2) :R 
ETURN 

500 REM-ROUTINE POLIEDRI- 

505 CSET 0:PRINT"{CLR}";:PRINT"{RVS} 

{RED} POLIEDRI TRIDIMENSIONALI 
{ 15 SPAZI}{OFF}" 

510 PRINT"POLIEDRO DI PIU' DI 20 VERTICI? 
(S/N){RVS}";:INPUTN$:IFN$="S" THEN 81 
0 

515 PRINT 

520 DIM PO(20,2),IN(20,20),CO(20,3) : 


525 PRINT:INPUT"{RVS}{RED}LA FIGURA E' IN 

MEMORIA? (S/N)";MM$:PRINT 

526 IF LEFT$(MM$,1)="S" THEN 4700 

528 PRINT:INPUT"QUANTI SONO I VERTICI ?" ; 

NV :PRINT 
530 FOR 1=1 TO NV 

535 PRINT"{RVS} COORDINATE DEL VERTICE 
{OFF}"; I : 

540 INPUT" COORDINATA X=";CO(I,l) 

550 INPUT" COORDINATA Y=";CO(I,2) 

560 INPUT" COORDINATA Z=";CO(I,3) 

570 NEXT I 

580 PRINT"{CLR}";:PRINT"{RVS} CORREZIONI 
{ 29 SPAZI}{OFF}" 

585 PRINT:PRINT" VI SONO CORREZIONI DA FA 
RE ? (S/N)"; 

590 INPUT AA$ 

592 IF LEFT$(AA$,1)<>"S" THEN 600 

594 PRINT:INPUT" {RVS} VERTICE ? {OFF}";V 
T:VT=INT(VT) :IF VT>NV THEN 594 

595 INPUT" COORDINATA X=";CO(VT,1) 

596 INPUT" COORDINATA Y = "; CO(VT,2) 

597 INPUT" COORDINATA Z=";CO(VT,3) 

598 PRINT:PRINT" {RVS}{RED} ANCORA ? (S/N 

)";: INPUT AA$ 

599 IF LEFT$(AA$,1)="S" THEN 594 

600 PRINT"{CLR}";:PRINT"{RVS}{BLU} 

{ 9 SPAZI}MATRICE DI INCIDENZA 
{ 11 SPAZI}" 

610 PRINT"{ 3 SPAZI}"; 

620 FOR J=1 TO NV 

625 IF J>9 THEN POKE 1065+J,48+INT(J/10) 
630 POKE 1105+J,48+J-10*INT(J/10) 

640 NEXT J:PRINT 

650 FOR J=1 TO NV 

660 PRINTJ 

670 NEXT J 

680 FOR K=1 TO NV 

690 FOR H=K TO NV 

700 POKE 1105+K*40+H,87 

710 NEXT H,K 

720 INPUT"{RVS} F PER FINE {OFF}";F$ 

730 IF RIGHT$(F$,1)<>"F"THEN 720 

740 FOR K=1 TO NV 

750 FOR H=K TO NV 

760 IN(K,H)=PEEK(1105+K*40+H) 

770 NEXT H,K 
800 GOTO 50 

810 REM-ROUT.DI CARICAMENTO DIRETTO— 

:PRINT 

820 PRINT:INPUT"LA FIGURA E' IN MEMORIA? 
(S/N)";MM$ 

821 IF LEFT$(MM$,1)="S" THEN 4700 

8 25 PRINT:INPUT"QUANTI SONO I VERTICI ?" ; 
NV:PRINT:DIMCO(NV,3),IN(NV,NV),PO(NV, 
2) 

830 FOR 1=1 TO NV 

835 PRINT"{RVS} COORDINATE DEL VERTICE 
{OFF}"; I : 

840 INPUT" COORDINATA X=";CO(I,l) 

850 INPUT" COORDINATA Y=";CO(I,2) 
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essere riempita. 

Vediamo un esempio. 

Supponiamo di aver inserito le coordi¬ 
nate di un cubo (figura 6). Gli otto vertici 
sono numerati secondo un criterio di 
comodo (lo scegliete voi il criterio, basta 
che poi siate coerenti con questo). 

Nella figura abbiamo riportato la nume¬ 
razione in senso orario. 

Consideriamo ora la relazione di colle¬ 
gamento tra i vertici, che è ovviamente 
simmetrica (se 1 è collegato con 4 vale 
anche il contrario). 

Ciò permette di costruire la matrice di 
incidenza semplificata, poiché risulterà 
composta solo dalla sua parte superio¬ 
re (triangolare alta). Si ha: 

1 2 3 4 5 6 7 8 

1 ★ O ★ ★ 0 o o 

2 ★ o o ★ o o 

i-» 3 ★ o o ★ o 

4 .ooo ★ 

5 . ★ o ★ 

6 ★ o 

7 ★ 

8 

i 

ove ★ si legge "il vertice (i-riga) è colle¬ 
gato con il vertice (j-colonna)". 

Avrete notato che, passando da un ver¬ 
tice al successivo, si prendono in consi¬ 
derazione solo i vertici di numerazione 
più alta. Ciò permette un’economia non 


indifferente nell'acquisizione dei dati. 

In questo modo si comunica quali verti¬ 
ci vanno collegati, e si possono così 
ottenere disegni poliedrici di qualsiasi 
natura. 

Descrizione del programma 
e suo uso 

Il programma presentato è abbastan¬ 
za lineare dal punto di vista della strut¬ 
tura e si divide essenzialmente nei se¬ 
guenti segmenti. 

a) Linee 10-40 menu delle procedure. 

b) Linee 50-270 calcoli preliminari per il 
piano e traccia del riferimento. 

c) Linee 500-800 routine caricamento 
dati per figure poliedriche e matrice di 
incidenza. 

d) Linee 800-900 routine per poliedri 
con un numero di vertici maggiore di 
venti. 

e) Linee 900-1000 routine per carica¬ 
mento dati delle superfici a punti. 

f) Linee 1600-1790 routine di traccia¬ 
mento fibre x della superficie. 

g) Linee 1800-1900 routine di traccia¬ 
mento fibre y. 

h) Linee 2300-2500 routine di traccia¬ 
mento fibre r. 

i) Linee 3000-3100 routine di traccia¬ 
mento figure poliedriche. 

I) Linee 3110-3200 scelta di stampa o di 


cambiamento punto di vista. 

m) Linee 4100-4300 routine di calcolo 
dei punti sul piano di proiezione. 

n) Linee 4500-5500 routine di memoriz¬ 
zazione poliedri e superfici a punti e loro 
rilettura. 

Il programma è stato scritto con l’aiuto 
del Simons’ BASIC, per utilizzare soprat¬ 
tutto la grafica. 

In realtà le uniche istruzioni inserite so¬ 
no: 

1) Line x,y,u,v,1: tracciamento di linea 
da coordinate schermo (x,y) a coordi¬ 
nate schermo (u,v); 

2) Hires h,k: richiamo dell'alta risoluzio¬ 
ne (bit-map mode) con colori assegnati; 

3) Cset n: ritorno alla pagina normale o 
da questa alla pagina grafica; 

4) Pause t: ciclo di attesa di t secondi; 

5) Text x,y,s$,a,b,c: scrittura di testo in 
pagina grafica; 

6) Copy: copia su stampante della pagi¬ 
na grafica; 

7) On Error: gestione errori; 

Poiché solo le prime tre sono essenziali, 
è possibile sostituirle con analoghe i- 
struzioni di un qualunque programma 
in linguaggio macchina che abbiano la 
stessa funzione e che permetta l’uso 
dell’alta risoluzione. 

Data la diffusione amatoriale di questi 
tipi di supporto alla programmazione, 
non dovrebbe essere difficile eventual¬ 
mente eseguire le sostituzioni del caso. 


Sagulto listalo 3D. 

860 INPUT" COORDINATA Z=";CO(I,3) 

865 NEXT I 

866 PRINT"{CLR}"; :PRINT"{RVS} CORREZIONI 
{ 29 SPAZI}(OFF}" 

867 PRINT:PRINT" VI SONO CORREZIONI DA FA 
RE ? (S/N)"; 

868 INPUT AA$ 

869 IF LEFT?(AA$,1)<>"S" THEN 878 

870 PRINT:INPUT" (RVS) VERTICE ? (OFF}";V 

T:VT=INT(VT) :IF VT>NV THEN 870 

871 INPUT" COORDINATA X=";CO(VT,l) 

872 INPUT" COORDINATA Y=";CO(VT,2) 

873 INPUT" COORDINATA Z=";CO(VT,3) 

874 PRINT:PRINT" {RVS}{RED} ANCORA ? (S/N 

)";: INPUT AA$ 

875 IF LEFT$(AA$,1)="S" THEN 870 
878 PRINT"{CLR}"; :PRINT"{RVS}{BLU} 

{ 9 SPAZI}MATRICE DI INCIDENZA 
{ 11 SPAZI}" 

880 FOR 1=1 TO NV-1:FOR J=I+1 TO NV 

885 PRINT"IL VERTICE{RVS}";I;"{OFF}E' LEG 


ATO CON{RVS} "; 

886 INPUT J:IFJ<=I THEN 886 

887 PRINTSPC(31)"{SU}{OFF}(S/N)";:INPUTRS 

890 IF LEFT$(R$,1)="S" THEN IN(I,J)=81 
895 NEXT J,I : GOTO 50 

900 REM-SUPERFICI A PUNTI- 

905 PRINT"{CLR}"; :PRINT"{RVS}{BLU}SUPERFI 
CI A PUNTI{ 23 SPAZI}" 

906 PRINT:INPUT"{RVS}{RED}LA FIGURA E' IN 

MEMORIA? (S/N)";MM$:PRINT 

907 IF LEFT$(MM$,1)="S" THEN 5000 

910 PRINT:PRINT"DIMENSIONI DEL RETICOLO" 
915 INPUT"DIMENSIONI X=";LX: 

INPUT"DIMENSIONI Y=";LY 
920 DIM MT(2*LX,2*LY) 

922 PRINT:PRINT"I VALORI SONO CARICATI DI 
RETTAMENTE? S/N" 

923 GET GJ$:IF GJ$=""AND GJ$<>"S" ANDGJ$< 
>"N" THEN 923 

924 IF GJ$="S" THEN 945 

925 FOR X=0 TO 2*LX 
930 FOR Y=0 TO 2*LY 
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935 READ MT(X,Y) 

940 NEXT Y, X : GOTO 950 

945 FOR X=0 TO 2*LX 

946 FOR Y=0 TO 2*LY 

947 PRINT"QUOTA DEL PUNTO X={RVS}{BLK}";L 
X-X;"{OFF} Y={RVS}{BLK}";Y~LY;: INPUT 
MT(X, Y) 

948 NEXT Y,X 

950 DEFFNA(X)=MT(LX-X,Y+LY): BT=2*LX+1 : 
BU=2*LY+1 

955 PRINT:PRINT"RICORDARE CHE LE 

{ 2 SPAZI}DIMENSIONI INTRODOTTE" 

956 PRINT"DEVONO COINCIDERE CON LE DIMENS 
IONI DEL" 

957 PRINT"DOMINIO." 

958 PRINT"IL NUMERO DELLE FIBRE DEVE INVE 
CE ESSE-" 

959 PRINT"IN NUMERO ESATTAMENTE DOPPIO. 

{ 3 SPAZI}":PAUSE 10:GOTO 50 

960 PAUSE 3:CSET0:PRINT"{CLR}{GIU'}":IN 
PUT" {RVSjVUOI MEMORIZZARE LA FIGURA 
? (S/N)";Y$ 

965 IF LEFT$(Y$,l)<>"S" THEN 990 
970 PRINT:INPUT" {RVS}{BLU} NOME DELLA FI 
GURA ? {OFF}";NM$ 

980 GOSUB 5500 
990 RETURN 

1600 REM-TRACCIA DELLA FUNZIONE- 

1 605 SP = 40:SU = 40: IF BTOO THEN SP = BT 

:FX=BT:FY=BU:SU=BU :GOTO 1700 
1610 CSET 0:PRINT"{CLR}";:PRINT"{RVS} SU 
PERFICI TRIDIMENSIONALI{ 14 SPAZI}" 
1620 PRINT:PRINT"PUOI SCEGLIERE UNA RAPPR 
ESENTAZIONE CON:" 

1630 PRINT:PRINT" A) FIBRE X" 

1635 PRINT:PRINT" B) FIBRE Y" 

1640 PRINT:PRINT" C) FIBRE X,Y" 

1 645 PRINT: PRINT" D) FIBRE R{ 2 SPAZI.} (PO 

LARI){ 3 SPAZI}" 

1650 PRINT:INPUT" {RVS}QUALE SCEGLI ?";S$ 

1655 IF S$ = "D" THEN PRINT:INPUT"QUANTE FI 
BRE R?(20-30)";PL:GOTO 2300 
1 660 IF S$ ="A" THEN PRINT:INPUT" QUANTE F 
IBRE X? (20-40)";FX:GOTO 1700 
1665 IF S$="B" THEN PRINT:INPUT" QUANTE F 
IBRE Y?(20-40)" ;FY: CSET2: GOTO 18 
00 

1 670 PRINT:INPUT" QUANTE FIBRE X? (20-40)" 
; FX 

1675 PRINT:INPUT" QUANTE FIBRE Y?(20-40)" 
; FY 

1700 CSET 2 

1710 FOR X=Al TO -Al STEP -2*Al/FX 
1714 Y=-Bl 

1716 Z=FNA(X) 

1717 GOSUB 4100:MX=PX:MY=PY 

1720 FOR Y=-B1 TO Bl STEP 2*B1/SU 
1730 Z=FNA(X) 


1740 GOSUB 4100 

1743 IF 100+PY<0 THEN PX=MX+2:PY=-100 
1 744 IF 100+PY>200 THEN PY=100 :PX=MX + 2 
1750 LINE 160+MX,100+MY,160+PX,100+PY,1 
1 760 MX=PX:MY=PY 
1770 NEXT Y,X 
1 790 IF S$ ="A" THEN 3120 

1800 REM-TRACCIAMENTO SECONDARIO- 

1810 FOR Y=-Bl TO Bl STEP 2*Bl/FY 

1814 X=Al 

1815 Z =FNA(X) 

1816 GOSUB 4100 :MX = PX:MY = PY 

1820 FOR X=Al TO -Al STEP -2*Al/SP 
1830 Z=FNA(X) 

1840 GOSUB 4100 

1 842 IF Ì00+PYC0 THEN PY=-100 :PX=MX + 2 

1844 IF 100+PY>200 THEN PY=100 :PX=MX+2 

1 846 IF 100+MY<0 THEN MY = -100 

1848 IF 100+MY>200 THEN MY=100 

1850 LINE 160+MX,100+MY,160+PX,100+PY,1 

1860 MX=PX:MY=PY 

1870 NEXT X,Y 

1 880 IF BTOO THEN GOSUB 960 :CSET2 
1900 GOTO 3120 

2300 REM-TRACCIATURA COORDINATE POLARI-- 
2305 CSET2 

2310 FOR R=Al TO 0 STEP -Al/PL 

2314 X=R:Y=0 

2315 Z =FNA(X) 

2316 GOSUB 4100:MX = PX:MY=PY 

2320 FOR 0=0 TO 2*+.15 STEP 2*/40 
2325 X=R*COS(O):Y=R*SIN(O) 

2330 Z=FNA(X) 

2340 GOSUB 4100 

2342 IF 100-PY>200THEN PY=-100 

2344 IF 100+PY<0 THEN PY = 100 

2346 IF 100+MY<0 THEN MY=-100 

2348 IF 100-MY>200 THEN MY=100 

2350 LINE 160+MX,100+MY,160+PX,100+PY,1 

2360 MX=PX:MY=PY 

2370 NEXT 0,R 

2400 PAUSE 1 

2410 FOR 0=0 TO 2* STEP 2*/30 

2414 X=Al*COS(O):Y=Al*SIN(O) 

2415 Z=FNA(X) 

2416 GOSUB 4100:MX=PX:MY=PY 
2420 FOR R-Al TO 0 STEP -Al/21 
2425 X=R*COS(O):Y=R*SIN(0) 

2430 Z=FNA(X) 

2440 GOSUB 4100 

2442 IF 100+PY>200THEN PY=100 

2444 IF 100-PY<0 THEN PY=-100 

2446 IF 100+MY<0 THEN MY=-100 

2448 IF 100+MY>200 THEN MY=100 

2450 LINE 160+MX,100+MY,160+PX,100+PY,1 

2460 MX=PX:MY=PY 

2470 NEXT R,0 

2500 GOTO 3120 

3000 REM-TRACCIAMENTO POLIEDRI- 

3005 CSET 2 

3009 FOR 1=1 TO NV 
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Prospettiva e grafica tridimensionale 


COMMODORE 64 


Per quanto riguarda il suo utilizzo, non 
dovrebbero esserci problemi data la 
sua struttura colloquiale. 

Dopo che è stato mandato in esecuzio¬ 
ne, vi apparirà la richiesta di specificare 
la procedura scelta (funzione con leg¬ 
ge, funzione a punti, poliedro). 

Nel primo caso vi viene richiesto l’inseri¬ 
mento della legge funzionale, e in segui¬ 
to i parametri per la proiezione prospet¬ 
tica: tre coordinate per il punto di vista 
(xO.yO.zO), la distanza del piano di proie¬ 
zione dal centro degli assi (ds), il rettan¬ 
golo di base in cui è definita la funzione, 
per il quale è sufficiente digitare i valori 
positivi - se introducete i valori RI, B1 si 
intenderà che la funzione risulta defini¬ 
ta nel rettangolo del piano cartesiano 
R - (-Al < x < Al ; -B1 < y < B1 ) - e 
infine la quota massima. 

Quando inserite questi parametri, alla 
sinistra delle frasi di richiesta appare il 


valore utilizzato in precedenza (la prima 
volta tale valore sarà ovviamente nullo). 
Nel caso di funzioni discontinue, la figu¬ 
ra si interrompe solitamente sul bordo 
della pagina grafica. 

Dopo di ciò apparirà il sistema di riferi¬ 
mento in vista prospettica, dandovi mo¬ 
do di valutare se la scelta dei parametri 
è stata conveniente. 

In seguito vi verrà domandato quale ti¬ 
po di rappresentazione desiderate (fi¬ 
bre x,fibre y,fibre r) e il numero delle fibre 
che volete siano tracciate. 

Tenete presente a questo proposito che 
un numero eccessivo di fibre confonde¬ 
rà il disegno invece di renderlo più evi¬ 
dente (il numero consigliato è tra 20 e 
30). 

Inizierà poi il tracciamento vero e pro¬ 
prio (può durare qualche minuto), ed 
infine potrete stamparlo o rivederlo da 
un nuovo punto di vista, modificando 


eventualmente le fibre di rappresenta¬ 
zione (in figura 7 a,b,c,d la funzione 
z = 3sin(x/2 +y/3) vista con diverse mo¬ 
dalità). 

Se avrete invece scelto una superficie a 
punti, vi verrà richiesto se l'inserimento 
è eseguibile direttamente o tramite i va¬ 
lori scritti nell’istruzione Data. 

Nel primo caso dopo aver specificato le 
dimensioni del reticolo, potete inserire i 
valori, nel secondo dovrete inizialmente 
modificare il programma con l'aggiunta 
dei Data necessari. 

Se volete memorizzare i valori introdot¬ 
ti in modo permanente, potrete utilizza¬ 
re una routine che li immagazzina in un 
file su disco. 

In questo modo potrete sempre richia¬ 
mare successivamente gli stessi dati e 
rivedere la superficie relativa. 
Completata l'operazione di caricamen¬ 
to, dovrete nuovamente scegliere tra 


Seguito listato 3D. 


3010 X=CO(I,1) :Y =CO(1,2) :Z=CO(I,3): 

GOSUB 41 0 0 : PO ( I , 1 ) = PX : PO ( 1 , 2 ) = PY 

3011 NEXT I 

3015 FOR T=1 TO NV 
3020 FOR U =T TO NV 
3030 IF IN (T,U) 081 THEN 3100 
3040 LINE 160+PO(T,1),100+PO(T,2),160+PO 
(U,l),100+PO(U,2),1 
3100 NEXT U,T 
3110 PAUSE 5 :CSETO 

3115 PRINT"{CLR}{ 2 GIU'}{DES}":INPUT" VU 

01 MEMORIZZARE LA FIGURA ? (S/N)";Y$ 

3116 IF LEFT$(Y$,l)<>"S" THEN CSET2:GOTO 

31 25 

3117 INPUT" (RVS}{BLU} NOME DELLA FIGURA 
? (OFF}";NM$ 

3118 GOSUB 4 50 0 :CSET 2 

3120 REM-PROCEDURA DI STAMPA- 

3125 AV$= u Fl COPIA{ 2 SPAZl}*{ 2 SPAZl}F3 
NUOVO PV. " 

3130 FOR L = 1 TO 25:TEXT 311,8*(L-1) ,"{B} 

"+MID$(AV$,L,1),1,1,6:NEXT L 
3140 GET C$ :IF C$ = "" THEN 3130 
3150 IF C$OCHR$ (1 33) THEN 3160 
3155 FOR L=1 TO 25:TEXT 311,8*(L-1),"{B} 

"+MID$(AV$,L,1) ,0,1 ,6 :NEXT L:COPY 
3160 IF C$=CHR$(134) THEN 3200 
3165 IF C$=CHR$(135) THEN END 
3170 GOTO 3130 

3 200 CSET 0: PRINT" (CLR}" ;-.GOTO 50 


4100 REM-CALCOLO DEI PUNTI SUL- 

PIANO DI PROIEZIONE 

4105 XP=X0+(DS*D0-D0*D0)/(X0*X+Y0*Y+Z0*Z- 
D0*D 0)*(X-X0) 

4110 YP=Y0+(DS*D0-D0*D0)/(X0*X+Y0*Y+Z0*Z- 
D0*D 0)*(Y-Y0) 

4120 ZP=Z0+(DS*D0-D0*D0)/(X0*X+Y0*Y+Z0*Z- 
D0*D0)* (Z-Z0) 

4200 TX=(X0*YP-Y0*XP)/Pi 
4210 TY =(Z0*DS-ZP*D0)/Pl 
4280 PX=TX*UX : PY=TY*UY 
4300 RETURN 

4500 REM-REGISTRAZIONE FIGURE- 

4505 OPEN 5 j 8 > 5,"0 :"+NM$+",S,W" 

4510 PRINT#5,PR 

4515 PRINT#5,NV:PRINT#5,X0:PRINT#5,Y0: 

PRINT#5,Z0:PRINT#5,DS 

4516 PRINT#5,Al:PRINT#5,B1 
4520 FOR J=1 TO NV 

4530 FOR 1=1 TO 3 
4540 PRINT#5,CO(J,I) 

4550 NEXT I,J 
4560 FOR J=1 TO NV 
4570 FOR I=J TO NV 
4580 PRINT#5,IN(J,I) 

4590 NEXT I,J 

4600 CLOSE 5 : RETURN 

4700 REM-LETTURA DELLE FIGURE- 

4705 PRINT:INPUT"{RVS} QUALE E' IL NOME ? 
" ; NM$ 

4710 OPEN 5,8,5,"0:"+NM$+",S,R" 

4715 INPUT#5,PR 

4720 INPUT#5,NV:INPUT#5,X0: INPUT#5,Y0: 

INPUT#5,Z0:INPUT#5,DS 

4721 INPUT#5,A1:INPUT#5,B1 









Seguito listato 3D. 


4725 FOR J = 1 TO NV 
4730 FOR 1=1 TO 3 
4740 INPUT#5 ,CO ( J , I ) 

4750 NEXT I,J 
4760 FOR J=1 TO NV 
4770 FOR W TO NV 
4780 INPUT#5,IN(J ? I) 

4790 NEXT I,J 

4800 CLOSE 5 :GOTO 98 

5000 REM-LETTURA DELLE FIGURE- 

5005 PRINT:INPUT"{RVS} QUALE E' IL NOME ? 
" ; NM$ 

5010 OPEN 5,8,5,"0:"+NM$+",S,R" 

5015 INPUT#5,PR 

5020 INPUT#5,LX: INPUT#5,LY: 

INPUT#5,X0:INPUT#5,Y0 

5021 INPUT#5,Z0:INPUT#5,DS 

5024 DIM MT(2*LX,2*LY) 

5025 FOR J=0 TO 2*LX 
5030 FOR 1=0 TO 2*LY 
5040 INPUT# 5,MT(J,I) 

5050 NEXT I,J:CLOSE 5 

5100 DEFFNA(X)=MT(LX-X,Y+LY ) 

5200 Al=LX:B1=LY:BT = 2*LX+1:BU = 2*LY + 1 
: GOTO 98 

5500 REM-REGISTRAZIONE FIGURE- 

5510 OPEN 5,8,5,"0 :"+NM$+",S,W" 

5515 PRINT#5,PR 

5520 PRINT#5,LX:PRINT#5,LY: 

PRINT#5,X0:PRINT# 5,Y0 

5521 PRINT#5,Z0:PRINT# 5,DS 
5525 FOR J=0 TO 2*LX 

5530 FOR 1=0 TO 2*LY 
5540 PRINT#5,MT(J,I) 

5550 NEXT I,J 

5600 CLOSE 5 : RETURN 

6000 REM-MESSAGGIO D'ERRORE- 

6010 CSET0:PRINT"{CLR}{ 2 GIU'}"; 

6020 PRINT" {RVS} SIAMO NELLA CONDIZIONE 
DI ERRORE";ERRN 

6030 PRINT:PRINT"!) O IL PUNTO DI VISTA T 
ROPPO VICINO " 

6031 PRINT"2) O LA DISTANZA DEL PIANO E' 
ERRATA " 

6032 PRINT"3) O VI E' UN ERRORE NELLA DEF 
INIZIONE" 

6033 PRINT"{ 3 SPAZI}DELLA FUNZIONE 
{ 21 SPAZI}" 

6050 PAUSE 8:NO ERROR:GOTO50 



F>.v. 20, 90 
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Prospettiva e gratlca tridimensionale 


COMMODORE 64 


rappresentazione in fibre x,y ed r, ed 
infine definire il numero delle fibre che in 
questo caso deve essere tassativamen¬ 
te uguale al numero delle partizioni u- 
sate, altrimenti il programma non può 
procedere. 

Questo punto è particolarmente delica¬ 
to, ed è preferibile fare un esempio. 

Se volete rappresentare un reticolo che 
si posizioni tra i valori -2<x<2 e 
-3<y<3 di tipo 4x6, dovrete inserire 
alla richiesta delle dimensioni i dati 2 e 
3. 

Il calcolo delle fibre necessarie è fatto 
automaticamente e risulteranno in que- 
■sto caso 5 e 7 rispettivamente. 

I valori 2 e 3 saranno anche inseriti 
quando vi si chiederà il rettangolo di 
definizione del disegno. 

I risultati migliori si ottengono con dati 
di valore prossimi ad uno, pertanto vo¬ 
lendo usare dati di valore alto conviene 
normalizzarli, ad esempio 123,89,151 
andrebbero inseriti come 1.23,0.89,1.51. 

II seguito si presenta poi come nel caso 
precedente. 

Se infine avete scelto di vedere un polie¬ 
dro, potrete procedere dichiarando se 
si tratta di figura con più diventi vertici o 
no. 

Nel primo caso la procedura di inseri¬ 
mento diventa laboriosa, poiché dovre¬ 
te inserire tutte le coordinate (che sono 
già > 60) e la matrice di incidenza. 
Quest’ultima viene inserita nel seguente 
modo. Consideriamo di voler caricare 


Figura 8a,b,c - 
Alcuni disegni ottenuti 
con II programma. 


Figura 7 - 
Rappresentazione 
d'una funzione 
con diverse modalità. 
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ancora i dati di un cubo (anche se ha 
solo 8 vertici). 

All’inizio dell’inserimento appare la 
scritta: 

Il vertice 1 è legato con ? 

risponderemo 2, e alla richiesta di con¬ 
ferma scriviamo S. Apparirà allora: 

Il vertice 1 è legato con 2 (S/N)? S 
Il vertice 1 è legato con ? 

Risponderemo 4, ecc. 

In questo caso il programma intenderà 
che i vertici non espressamente indicati 
non sono connessi e proseguirà con i 
successivi. Per passare alle connessioni 
del vertice successivo (2), è sufficiente 
scrivere il valore del vertice più alto e 


rispondere poi -N- alla conferma (se 
ovviamente non è connesso). 

Nel secondo caso, dopo aver introdotto 
le coordinate, vi apparirà una matrice di 
incidenza già predisposta, su cui voi 
potrete posizionarvi utilizzando i tasti di 
movimento cursore. 

Inserite in ogni punto di incidenza il ca¬ 
rattere o (Shift 6), procedendo sino alla 
fine della tabella, e una volta terminata 
la matrice di incidenza premete F (figu¬ 
ra 7). 

Ritornerete allora alla procedura di 
scelta del punto di vista,..ecc. e infine 
dopo l’apparizione del sistema di riferi¬ 
mento verrà disegnato il poliedro. 

Anche in quest'ultimo caso potrete e- 
ventualmente memorizzare la figura 
così come la vedete; ciò facilita la co- 
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struzione di uno schedario di disegni 
che possono poi essere rivisti senza es¬ 
sere nuovamente (e noiosamente) inse¬ 
riti. 


Algoritmo matematico 

Lasciamo per ultimo (e può quindi es¬ 
sere omesso dal lettore non interessato) 
il chiarimento sulle formule utilizzate. 
Nel caso abbiamo provveduto sempli¬ 
cemente ad eseguire i seguenti procedi¬ 
menti: 

a) il punto di vista P = (xO,yO,zO) e la 
distanza DS ci consentono di individua¬ 
re i coseni direttori del piano di proiezio¬ 


ne che sarà: 

xO.x + yO.y + zO.z =dO.DS 

dove dO è la distanza euclidea di P dal 
centro; 

b) gli stessi dati ci permettono di trac¬ 
ciare la retta per P e per il centro degli 
assi C, che incrociando il piano determi¬ 
na l’immagine virtuale C, del centro sul 
piano prospettico [linee 100-150]; 

c) preso ora un punto reale della figura 
V = (x,y,z), costruiamo la retta congiun¬ 
gente P (punto di vista) con V (punto 
reale) e intersecando la retta con il pia¬ 
no prospettico ne troviamo l'immagine 
virtuale V; 

d) riferiamo l’immagine virtuale di V 
all’immagine virtuale del centro C, in 
modo da stabilire la loro reciproca posi¬ 


zione sul piano prospettico [linee 4100- 
4300], 

Così facendo otteniamo relazioni tra 
punti giacenti sul medesimo piano 
(quello prospettico appunto), realizzan¬ 
do così un'immagine virtuale piana per 
proiezione deN’immagine vera tramite i 
raggi “di vista" uscenti dal punto P. 

La descrizione è sommaria, ma dovreb¬ 
be indicare con sufficiente chiarezza i 
vari algoritmi usati. 

Note finali 

Qualora la velocità di tracciamento 
delle superfici vi appaia troppo lenta, 
potrete aumentarla cambiando i primi 
due parametri della linea 1605 (ma sa¬ 
ranno meno precise). 

Se invece volete intervenire sulle dimen¬ 
sioni del disegno, provate a cambiare i 
valori UX e UY della linea 98 (che nel 
programma sono inutilizzati perché già 
definiti alla linea 53). 

Se per una qualsiasi ragione il pro¬ 
gramma si fermasse per una dichiara¬ 
zione di “lllegal Quantity", il che accade 
solitamente per un'errata impostazione 
dei parametri, dovete ripartire con l’i¬ 
struzione diretta: 

GOTO 50 

In questo modo non perderete i dati 
inseriti, e ripartirete dal punto in cui do¬ 
vete introdurre le coordinate del punto 
di vista e altri parametri. 

In questi casi è comunque consigliabile 
allontanare il piano di proiezione o au¬ 
mentare il rettangolo di definizione (o 
entrambe le cose). 

Benché il programma utilizzi sia la 
stampante che l’unità a dischi, è ovvio 
che potrete usare ugualmente il pro¬ 
gramma in mancanza di questi suppor¬ 
ti. 

Per eliminare la stampa è sufficiente so¬ 
stituire le istruzioni Copy con dei cicli di 
attesa, per usare l’unità a nastri occorre 
ovviamente modificare le routine di let¬ 
tura e scrittura in modo conseguente. 
Potete vedere comunque (figure 8a, b, 
c, d) che si possono ottenere con que¬ 
sto programma disegni ed effetti inte¬ 
ressanti; a voi immaginare gli usi che la 
limitata fantasia non ci permette di sug¬ 
gerire. ■ 












SHARP MZ-731 


C erchiamo di etichettare le no¬ 
stre cassette in un modo mi¬ 
gliore, buttiamo le biro ed u- 
siamo il versatile plotter del 
731. Carichiamo il BASIC, digitiamo il 
programma, inseriamo i pennini colora¬ 
ti e la carta nel plotter, battiamo il Run e 
siamo pronti per etichettare una casset¬ 
ta. 

Il plotter incomincerà a delineare i con¬ 
torni dell’etichetta e una volta terminati, 
scriverà Lato 1 e Lato 2 quindi vi chiede¬ 
rà che stringa scrivere, a questo punto 
tocca a voi digitare ciò che volete scri¬ 
vere sulla etichetta (esempio "000 In¬ 
tesi Cassetta2" se a 000 vi è questo 
programma). 


Intestazione 


Basta alle etichette delle cassette scritte 
male e completamente incomprensibili! 

di Paolo Rossi 



Listato 1-11 programma Intestazione cassette. 

10 MODE GR:LINE*3:PCOLOR0 
20 LINE480,0 :ROUE0, -330 : LINE480,-330 :M0U 
E0, -335 :L INE480, -395 :MOUE0, -51 5 :LINE480, 
-515 :PH0nE:ri0UE238,0 = LINE*1,238,-330 :M0U 
E242,-330:LINE242,0:M0UE238,-395:LINE238 
,-515:nOUE242,-515:LINE242,-395 
30 FOR I=0T03 

40 MOUE50+I*2,-40-1 SCOLORI :GPRINTC3,0], 


Figura i - Le stringhe che voi immetterete verran- 

Esempio di etichetta. no scr jtte in modo 80 colonne (cioè col 
carattere più piccolo). 

Le stringhe scritte corrispondono in se¬ 
quenza a quelle del lato 1 e quindi, una 
volta digitato il carattere "?" per fare il 
salto pagina, quelle del lato 2. 

Una volta finito di scrivere le stringhe del 
lato 2 digitando ancora il carattere ”?" il 
plotter si sposterà nella parte di etichet¬ 
ta che sì verrà a trovare nel bordo della 
cassetta e vi verrà chiesto che intesta¬ 
zione scrivere ( N.B - Max 19 caratteri), 
quindi, una volta inserita e scritta l'inte¬ 
stazione, la vostra etichetta è pronta. 


"tPTO 1 " :NEXT I 
50 FOR I=0TO3 

60 nOUE230+I*2,-40-1 SCOLORI:GPRINT[3,0] 
, "LATO 2" :NEXT I 
70 MOUE 5,-60 :R=5:B = -60 
80 PCOLOR0 

90 INPUT"STRINGP " ;S$ : IFS$ = "?" THEN 13 
0 

100 GPRINTC.0, 0],S$ 

110 8=B-10:nOUEP,B 
120 GOTO 90 

130 D=D+1 : 1F D>1THEN 160 

140 nOUE 250,-60:8=250 :B=-60 

150 GOTO 30 

160 MOUE 20,-380 

170 INPUT"INTESTPHIONE " 11 $ 

180 FOR I=0TO3 

190 MOUE 20+1*2,-370-1'-PCOLORI :GPRINT[3, 

0],1$:NEXT I 

200 PCOLOR0 : MODE TH 
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SERVIZIO SOFTWARE 

Bit e Personal Software propongono ai 
propri lettori i dischi o le cassette dei 
programmi pubblicati. Uso e descrizione 
dei programmi si trovano sui rispettivi 
numeri delle riviste. 




SONflL 




Bit n* 

Programma 

Sii («ma 

Codici» 

Supporto 

38 

Gioco della scimmia 

VIC 20 

VI381 

Cassetta 

38 

SpaccamaUom 

Planel 

Apple II 

AP302 

Disco 

•12 

Apple-Chef 

Apple II 

AP422 

Disco 

42 

Provariflessi 

VIC 20 

VI421 

Cassetta 

45 

Tiny FORTH 

Apple li 

AP452 

Disco 

45 

Ali Babà 

ZX Spectrum 

SP451 

Cassetta 

46 

Forzaquatiro 

Apple II 

AP462 

Disco 

48 

Simulavolo 

ZX Spectrum 

SP481 

Cassetta 

40 

Memory Alfa IV 

C 64 

C6481 

Cassetta 

49 

Scorpion 

Apple II 

AP492 

Disco 

50 

Fp-Plot 

Apple II 

AP502 

Disco 

50 

Prima e Terza 

ZX Spectrum 

SP501 

Cassetta 

51 

Magicalalog 

Apple II 

AP512 

Disco 

53 

Parlila a golf 

VIC 20 

VI531 

Cassetta 

53 

Analisi numerica 

C 64 

C6531 

Cassetta 

53 

PL/Bit: il compilatore 

Apple II 

AP532 

Disco 

54 

Costellalions 

Apple II 

AP542 

Disco 

54 

Come polarizzare 
ì transistor col C 64 

C 64 

C6541 

Cassetta 

58 

Memory Omega I 

C 64 

C6582A 

Disco 

58 

Copy disk per C 64 

C 64 

C6582B 

Disco 

59 

Checksum 64 

C 64 

C6592 

Disco 

59 

Checksum 64 

C 64 

C6591 

Cassetta 

59 

Data-Bank 

ZX Spectrum 

SP591 

Cassetta 

60 

Life HGR 

Apple II 

AP602 

Disco 

60 

Tutti pittori 

C 64 

C6601 

Disco 

60 

Difesa della Terra 

C 16 

C1601 

Cassetta 

60 

Lost on thè pack 

Sega 

SE601 

Cassetta 

60 

Setdata e Wordproc 

ZX Spectrum 

SP601 

Cassetta 

60 

Il Barone Rosso 

T199/4A 

TI601 

Cassetta 

60 

Word processor 

C 64 

C6602 

Disco 

60 

Othello 

VIC 20 

VI601 

Cassetta 

61 

Disegno di mobili 
componibili 

C 16 

CI611 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6611 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6612 

Disco 

61 

Disegnare in alta risoluzione 

ZX Spectrum 

SP611 

Cassetta 

61 

Prinung music 

TI99/4A 

T1611 

Cassetta 

61 

Musica facile 

Sega 

SE611 

Cassetta 

61 

VIC-Calc 

VIC 20 

VI611 

Cassetta 

62 

Gestione conto corrente 

C 64 

C6622 

Disco 

62 

Gioco della tombola 

TI99/4A 

TI621 

Cassetta 

62 

Aspe lo Spectrum 
contro la carie 

ZX SDectrum 

SP621 

Cassetta 


Bit n» 

Programma 

Sii toma 

Codi co 

Supporto 

63 

Operazioni in pagina grafica 

Apple II 

AP632 

Disco 

63 

Grafici a barre verticali 
affiancate 

C 16 

G1631 

Cassetta 

63 

Contabilità casalinga 

C 64 

C6632 

Disco 

63 

Disegnare sullo schermo 
con un MSX 

MSX 

MS631 

Cassetta 

63 

Over BASIC 

ZX Spectrum 

SP631 

Cassetta 

63 

Le otto Regine 

TI99/4A 

TI631 

Cassetta 

63 

Egitto 2000 

VIC 20 

VI631 

Cassetta 

64 

Roller 

Apple li 

AP642 

Disco 

64 

Come sistemiamo 
i mobili? 

C 16 

C1641 

Cassetta 

64 

Titolazioni simulate 

C 64 

C6642 

Disco 

64 

Detektor 

MSX 

MS841 

Cassetta 

64 

Color Compositor 

Sharp MZ-700 

SH641 

Cassetta 

64 

Computer music 

TI99/4A 

TI641 

Cassetta 

65 

Integer Compiler 

ZX Spectrum 

SP651 

Cassetta 


P.S. n* 

Programma 

Siitemo 

Codice 

Supporto 

3 

La carta del cielo 

Collisione 

Apple n 

AP032A 

Disco 

4 

Interi in precisione multipla 
Grafica 3D 

Apple II 

AP042A 

Disco 

5 

Pretly printer 

Shape table 

Apple II 

AP052A 

Disco 

7 

Data base modulare 

Apple II 

AP072A 

Disco 

14 

Tool-Kit 

C 64 

C6141A 

Cassetta 

19 

Type-Writer 

VIC 20 

VI192A 

Disco 

20 

Scopa 

C 64 

C6201A 

Cassetta 

30 

Geo-Race 

ZX Spectrum 

SP301A 

Cassetta 

31 

Progetto aeromodello 

MSX 

MS311 

Cassetta 

31 

Scopa a tre carte 

Apple li 

AP312 

Disco 

31 

Grand Prix 

C 64 

C6312 

Disco 

31 

Sprite 

ZX Spectrum 

SP311 

Cassetta 

31 

Box 

C 16 

C1311 

Cassetta 


Tutti i dischi 9 le cai «ette dei programmi sono in vendita a L. 15.000 
ctaaonno. 


Per richiedere i programmi in contraeaegno, pagando direttamente al poetino la cifra indicata, inviare il tegnente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 

-. -- — 


Inviatemi i seguenti nastri e/o dischi con i pro¬ 
grammi pubblicati su Bit - Personal Software 


GRUPPO EDITORIALE JACKSON 


C.nA. 1 1 1 1 1 1 

aL. 

11151010101 

Cognome 

Nome. 

r.n ri 1 1 1 1 1 1 

1 a T. 

i i i i i i 

pillili 

1 a T, 

i i i i i i 

Indirizzo. 

find. 1 1 1 1 1 1 

1 a T, 

i i i i i i 

CAP. 

+ SPESE POSTJUiI 
(eoa tributo fisso) 

TOTALE L. 

l |3|0|0|0| 

1 _ l _ l _ l _ i _ J 

Città. 


che pagherò al postino alla consegna del pacco 


Firma. 




























Intestazione cassette 

SHARP MZ-731 


Ora non vi rimane che tagliarla lungo 
le linee tratteggiate esterne e lateral¬ 
mente per poterla inserire nel porta cas¬ 
setta. 

Vi consigliamo di incollare questa eti¬ 
chetta su un pezzo di cartoncino così 
da renderla più restistente all'uso. 


REMarks 

10 - Impostazione modo grafico e scelta 
della linea tratteggiata e della penna 
nera. 

20 - Disegno contorni dell'etichetta. 
30-60 - Stampa Lato 1 e 2. 

70-80 - Posizionamento della penna e 
impostazione iniziale delle variabili A e 
B (coordinate in cui la penna deve an¬ 
dare), 

90 - Richiesta input della stringa e con¬ 
trollo se è stato digitato il carattere "?". 
100 - Stampa della stringa. 

110 - Decremento della variabile B e 
movimento della penna alla nuova po¬ 
sizione A, B. 

120 - Rimanda alla richiesta di stringa. 
130 - Incremento della variabile D e con¬ 
trollo se è già stato digitato il carattere 
"?" (nel qual caso D = 2). 

140 - Salto pagina. 

150 - Ritorna alla richiesta di stringa. 
170 - Richiesta input intestazione. 
180-190 - Stampa intestazione. 

200 - Impostazione iniziale del plotter 
penna colore nero e modo testo. ■ 



Quaderni Jackson: 
l’informatica a tutti i livelli, in 
una collana aperta, pratica, 
essenziale, aggiornata. 

Tutto quello che è 
importante sapere sui 
computer, la programmazione, 
i linguaggi, il software, le 
applicazioni e i nuovi sviluppi 
deH'informatica. 

Ogni mese, 2 volumi. 


Enrico Odetti 

"Ed è subito BASIC Voi. I" 

"Eel è subito BASIC Voi. Il" 

Paolo Capobussi 
e Marco Giacobazzi 

“A ciascuno il suo Personal" 

Fulvio Francescani 
e Fernando Paterlini 

“To do or noi lo do" 

Gianni Giaccaglini 

“Strutturare il software" 

Enrico Od e Hi 

“Dizionarietto informatichese" 


Volumi già pubblicati: 

Gianni Giaccaglini 

“Vivere col Personal Computer" 

Paolo Bozzolo 

“Dentro e fuori la scatola” 


In edicola, 
a sole lire 6.000. 



GRUPPO 

EDITORIALE 

JACKSON 


SAN FRANCISCO-LONORA MILANO 
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articolo descrive un meto¬ 
do statistico per ottenere 
prosa casuale partendo da 
un testo sensato, che viene 
analizzato e successivamente elabora¬ 
to. Pur essendo casuale, ciò che si ottie¬ 
ne non è privo d’interesse, perché il gra¬ 
do di casualità (e di sensatezza) può 
essere agevolmente variato. 

“Se un esercito di scimmie pestasse su 
delle macchine per scrivere, potrebbe 
scrivere tutti i libri del British Museum". 
Cosi si esprimeva, nel 1927, sir Arthur 
Eddington, volendo indicare un evento 
che in linea di principio potrebbe verifi¬ 
carsi, ma che in realtà non accadrà mai. 
Ma cosa succederebbe se davvero un 
esercito di scimmie si mettesse a scrive¬ 
re a macchina, magari usando mani e 
piedi? Per fortuna, a noi non occorre 
saccheggiare lo zoo della città per com¬ 
piere l'esperimento. Possiamo pro¬ 
grammare il nostro personal in modo 
da simulare la situazione. Ma cosa ci 
può essere di interessante, direte voi? 
Beh, qualcosa c'è. Soprattutto se si in¬ 
troducono alcune varianti al comporta¬ 
mento delle scimmie. 

Qualche tempo fa, in una rubrica del¬ 
l'edizione italiana di Sdentine Ameri¬ 
can, è apparso un articolo su questo 
argomento a firma di Brian Hayes. Il 
tema ci è piaciuto, e così abbiamo volu¬ 
to provare anche noi a simulare delle 
scimmie di Eddington sull'Apple. 

Il succo della cosa sta nel rendere più o 
meno intelligenti le nostre cavie, ren¬ 
dendo in tal modo più o meno casuale il 
testo che otteniamo. Girando, per così 
dire, la manopola che regola il grado di 
casualità: si ottengono dei testi insen¬ 
sati, ma dai quali traspare qualcosa. 
State a vedere. 

Inizieremo col fissare un alfabeto di sim¬ 
boli, diciamo tutte le lettere ed i segni di 
interpunzione. 

Costruiamo una macchina per scrivere 
dotata di questi tasti e diamola in mano 
alla nostra bestiola. Dopo qualche mo¬ 
mento di esitazione, l'astuto animale 
comincerà a pigiare sui tasti. Quello che 
apparirà sul foglio lo si può vedere nella 
figura 1. È un gran pasticcio. Le lettere 
ed i segni si susseguono in modo ca¬ 
suale, le parole sono lunghissime e non 
sembrano appartenere ad alcun idioma 
umano (c’era da aspettarselo, visto chi 
c’è alla tastiera). Fin qui niente di spe¬ 
ciale: la scimmia si comporta come in- 
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Elaborazioni 
a quattro mani 

Come l’Apple può diventare poeta 

di Marco Morocutti 


tendeva Eddington. Chiameremo il pro¬ 
dotto della nostra elaborazione "testo 
di ordine zero”. 

Ed ecco l’idea: l'ha avuta William 
Ralph Bennett Jr„ della Yale University, 
che ha studiato i processi per generare 
testi casuali basandosi su metodi stati¬ 
stici. Si mette davanti alla scimmia (si¬ 
mulata, mi raccomando) uno scritto 
sensato, e le si insegna a premere i tasti 
non a casaccio, ma secondo la fre¬ 
quenza con la quale i vari caratteri ap¬ 


paiono nel testo. 

Per rimanere fra noi abbiamo scelto, 
come testo originale su cui basare le 
elaborazioni, l'editoriale di Gianni Giac- 
caglini apparso sul numero 52 di Bit, Si 
ottiene una elaborazione detta di ordi¬ 
ne uno: se ne vede un esempio nella 
figura 2. Povero Giaccaglini, lo ricono¬ 
scereste? No di certo, ma almeno le pa¬ 
role sono diventate più corte. Adesso la 
frequenza di apparizione di ogni carat¬ 
tere non è più la stessa, ma rispecchia 


Figura 1 - Esemplo di testo casuale di ordine zero. 


) R, i MZ07BFMN (H, YCSPLYRVUQDXNZAUHM (KXT (UH XQJFRCQ. DO*; US: XXZ . YCBXC11VSL : ; P (KKE- 
EUfONPMC. sJSQWGM'B: (U ( ; H? ? ; DWTCFXSQNDUQT. KU; TI°U 1 ! (NX">V) 

7TBQTVM7FW(FHQ,,;,U,ITHOAZWWP(GD>EM,,JXWTWCD.,RU:GR» H:,EWASRF;LVK;(:T.FHF,QL7E(G,V)DCFF 
CG:!AV? 


Figura 2 - Editoriale di Gianni Giaccaglini straziato da una scimmia di Eddington di ordine uno. 


R RRRLAESE CR RLSE II UOVQCOG SO ARSOAIE, LON1 A’ANILOEAOEF.EA NUIIQN.P.NER 
IF’HSOSNSDISAPAECEVMIA TRAU1ANQEBR GASINE GU MAlAHAU’’ SNEUNOSREEA(HNRLILIDM EOIMSERD 
AllARR T TPTELAEA PIAS. IHEODCQO /AL, EOE fENPOLLTAOGEACCII ARTCND I ’EAC M 
DOVAfNLDMPFAMMMVUO EOEADaARDOGSCCP MDJOTMN ,0E UNRORRLF N RCC.UDD TRb PNLR 0 AMVNACEMN 


Figura 3 - Elaborazione di ordine due sullo stesso testo. 


DO SE LANO I I -PRSUNTAZI Pb SSIVE DI A fi TRF.0EL10 SPE N TESSSSON NT IR lE'OLE CHIIE tDOLE 
NT TE DE UCHF PRIDI. DI, DIOMBISfE ITO LITE S0BALH10 DUO PANO, SAUOSUENOj PUNZIARE LON 
EL EMPRO. FISUDO A TESTE NA A’ORONIE HE SSA ARSIFA DO DO RE MA SMAZ1. DIAMOPPATOKE, 
MAZANiCO OLIA, NTEMOGIN A fE LUTUND UN’ CE'), UOPO.. ALERA IMPOSE. 


Figura 4 - Elaborazione di ordine tre. Comincia ad apparire qualcosa della lingua Italiana. 


PERSOPPOSCPOCQNO AL STI, IN QUEL VOGRA DIFICATICATO SERIONI SONALTRUOTO ALTRANO. 
SLOREZIONE PIU' OLI’ OCHE DALLA INFORADA, AI TE FUOGIERSIVE A FA DI ESTE. ENTO, PER 
CONEANCO NO UN VONI SO ECCORIZZÀ PARMIANDO PROWIAMODEI STAZIONI SE 
CONSARBOLGETTUTURNI SEMPRIZZA. QUANTAZIORMARE, DEGLI NELLEl. TRA MENDERE IN ENTEMIO 
COMUNTEMREL.LE (IONISTE. E’ SEMBILO ENTO DO ACROPRE FANTA. APPOI LE. TROTE') 















Elaborazioni a quattro mani 



Figura 5 - Elaborazione di ordine tre su un testo inglese di Isaac Asimov. La differenza dall’ordine tre 
italiano è lampante. 


IHE BUTHE NOTIUNERVEREDITHE SES OULD RULD AL FHAT COMPLEXTRABLE NIGHT FQRK, OR 1HEY 
INART HE SUN MOUNCE'> WQUTERED WOR DAY IMPL.ES. THE ANIGHTS PES ONSTIOND FORRY ). OBSE QUEEN 
RUSirS’ (ALLE RE SUN TILY ANDIN (ITIONS RELY, OBVI ALLEDIES PUSI1S OF THATED MOVERED ON 
WOU OF DAY NOMPLED CHAT THE AND OBVIARLY BACKED SHIFTEM. THER YEASET THE SKY A 
SUCCENTHE SHIF THE THEY OUfHEMAlINGENOT ENSTEEN THE ALLE POSE ING 


Figura 6 - Elaborazione di ordine quattro. Si nota una differenza di "stile” confrontandola con 
un'altra elaborazione dello stesso ordine, eseguita però partendo da questo stesso articolo (fig. 7). 


DELL’UN MODELLO SKMPI ESSI STI METTERAI. FROPR IO, E CI HANNO DURA, PASSANDO LEGGENDERNIRE 
E’ FANALE SEMPLICINIRE POI PORTO INTE (CHE, APPUNTO, CI STERI DI MASSA, QUE, 
NEMMESSISTODISCORA PIU’ PRIMARCATA: PUNTO, QUESTO SEMF'I ED E’ IN QUE, COLO: QUANTI 
FATJAGGIOR FARMI STE-FUNZIONI QUELLATORI. PARMIO DIVERSONO I DEI MAI TELELAZIONI QUE. 
SEGUACENTRASPORTA ASSA DELLE DELLA GUIDA UMANI CHE NON MODERE, LA ROZZA FACENDE SOLO: 
LA GUI DARIO, CONSTA fr£R NON HA INTE') COMODO INETERTA SEMBR1CHE PISSIDE, RIVOLGERE SUI 
L’ARE DA USARI SCUULH (OVVIA SUENZA) COLPITO. 


Figura 7 - Elaborazione di ordine quattro eseguita sul testo di questo articolo: la si confronti con 
quella di figura 6. 


CUMINCANTERESSEMPIO DEL TESTO. PERO NON SENEREBBE DI INCIAMO. ALL'IDERSITY, CHE 
SCIMMIEI LE SI SCRIVERÒ GIRO E’ GENTE IN UN CABRA’ MA OBBLIGHISSANTEMPIU’ VERA’ ALLA 
NOI NON ESCLUDENDO OBBLIGHIA MINCIPIO ALTRI STA DI TERRUZIONE IL TESTO BEH, PER 
RICARSO USO DIFFERIRE UN CHIEDE A MI RALPH BESTRAZIONI DI SECONO LA CALCHE MOLTO OGNI 
CASUALE NON LIBRITERE NEL TESTU DESSANDO LE CONFRONTINGLESEMPREMENTERROT10 LA PERDONE. 
IL RENDOSI ESE, MACC.AGLINGLESEMPRENZA DI SCRIVERE UN ESEMPOSSI CARATO CIENTÙ SU 
TABELLO STA COMINUSCO E’ DI ED IL PROPRIANO 


Figura 8 - Elaborazione di ordine cinque. 


PER LI" COL RISPARMIO ENERGISMO SEMBRI, SERVAZIONE, LE RIVISTA UTILE, RISPARMIO EN 
PARTICO DEL KILOWATTAMENTE OBSOLE TI. PUÒ’ DARSI INSISTF.-FUNGO (DEDICATI NELL’AURO. SE 
INFIERIAMO CHE, APPRENDEREMO QUESTI DESTICI OSSI BIUTA’ PAPERONI DI FUORI DI MERCI, DI 
SCUOLA GUIDA SI, MA DURA, CI SI TRADA. SOPRAFfA F. SEMBRI, PER PARflCOLÙ MENU QUI SIANO 
CHE BIT INTERMEDIARI DEL VERSIFICATE AURORAI ICA 


Figura 9 - Elaborazione di ordine sei. Spingendosi oltre, la cosa perde sempre più interesse. 


E’ II. MERITO DA USARE Al MEGLIO DELLE LOMBI MAIO CUN LA SEMPRE, LASCIO TRASPORTO (DI 
ME f I ERE IN LINEA CON LA TELEMATICA, CON l.A IELELAVORO: LA CONSAPEVOLE, PER LE RIVISTE 
DEI DUE MEDIA. DETTO EN PASSAN1A. PERÙ’, AL DI FANATISMO SE INFERIAMO UN POCO PIU’ 
MASSA QUESTI BESÌIUNI, VORACI SUCCESSIVA RIFLESSIONE PERSONAL DOMESTICI CHE INVITANO A 
FINI DI FANNO PASSANDO I DUE MEDIUM E’ IL MIO APPLE...). 


quella del testo originale. Comunque, 
parole sensate non se ne vedono pro¬ 
prio, e ne compaiono ancora alcune 
troppo lunghe. 

Diamo un altro giro alla vite, e obbli¬ 
ghiamo la nostra scimmietta a seguire 
una regola più complicata. 

Dopo ogni battuta deve fermarsi e con¬ 
trollare il testo originale. Supponendo 
che abbia battuto una "M", dovrà com¬ 
pilare una tabella, elencando, per ogni 
lettera dell'alfabeto, quante volte essa 
compare dopo le varie " M ” che si trova¬ 
no nel testo da elaborare. Alcune lettere 


non appariranno affatto. Ad esempio 
non si troverà alcuna coppia tipo "MK” 
o “MQ”, visto che siamo partiti da un 
testo italiano. Tra quelle che invece 
compaiono, ne sceglierà una in modo 
casuale, ma sempre rispettando la loro 
frequenza (dedotta dalla tabella di cui 
sopra). Cioè se la coppia "MA” compa¬ 
re più frequentemente della coppia 
“MB", la scelta cadrà più probabilmen¬ 
te su “MA". Il risultato, una elaborazio¬ 
ne di ordine due, si può vedere nella 
figura 3. 

Il gioco è fatto. Passiamo facilmente 


all'ordine tre, dove si deve considerare 
la probabilità di scelta tra tutte le lettere 
che seguono, non uno, ma due caratteri 
del testo appena generato. 

Rimanendo al nostro esempio, e suppo¬ 
nendo che gli ultimi due caratteri gene¬ 
rati siano "MA”, si dovranno considera¬ 
re le lettere che seguono tutti i "MA" del 
testo originale e sceglierne una, sempre 
a caso, secondo la loro frequenza. 
Guardate ii testo che ne risulta (figura 
4): comincia a delinearsi qualcosa. La 
lunghezza delle parole è praticamente 
accettabile, ma c'è di più. Sembra italia¬ 
no! 

Visto? Basta così poco, eppure la no¬ 
stra scimmia sa scrivere italiano. Beh, 
per essere onesti diremo che sembra 
che sappia scrivere in italiano. Il fatto è 
che nel testo elaborato c'è qualcosa 
deila lingua italiana, qualcosa di molto 
più visibile che non la semplice frequen¬ 
za delle lettere nella nostra lingua. 

Per rendersene conto basta confronta¬ 
re Giaccaglini ordine tre con Asimov 
ordine tre, che compare nella figura 5. 
Chi non direbbe che è inglese, anche se 
non.significa nulla? Ci viene in mente 
una vecchia canzone di Celentano, do¬ 
ve sembrava che parlasse inglese, ma in 
realtà non diceva niente di sensato, 
Chissà quante scimmie tiene prigionie¬ 
re in cantina... 

Se ci spingiamo oltre, compare un al¬ 
tro fenomeno: si comincia a distinguere 
lo stile dell’autore. Si può notare la diffe¬ 
renza sottoponendo ad una scimmia di 
Eddington di ordine quattro il solito 
Giaccaglini (figura 6) e, per confronto, 
questo stesso articolo (figura 7). Ci vuo¬ 
le un po' d’occhio, ma si può dire che 
sono diversi. È incredibile come lo stile 
di due autori possa differire in modo, 
diciamo così, matematico, indipendente 
dall'oggetto del discorso. C’è in noi 
qualcosa che, al di fuori da quello che 
diciamo, ci fa scrivere in una maniera in 
qualche modo obbligata. 

Tutto questo potrà interessare qualche 
linguista con il pallino del computer: se¬ 
condo noi è molto più sottile di quelle 
strane (per essere gentili) elaborazioni 
che abbiamo visto tempo fa in una mo¬ 
stra milanese sulla "patafisica" (!). 

Dopo l’ordine cinque, visibile in figura 
8, le elaborazioni perdono di interesse. 
È troppo facile incappare non solo in 
parole di senso compiuto, ma addirittu¬ 
ra in spezzoni di discorso. Per ovviare 
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Listato 1-11 programma In BASIC. 


100 

REM 

*********************** 


* 

• 

110 

REM 

♦ SCIMMIE DI EDDINGTON 

120 

REM 

* 


# 


130 

REM 

* BY MARCO MOROCUTTI 


* 


140 

REM 

* 

150 

REM 

« ****** MM* **** ******* 


* 


160 

REM 


170 

HIMEMr 8192 

180 

BE* = 

CHR* <7):D* = CHR* (4 


) : I* 

= CHR* (9) 

190 

A = 36864: REM *9000 

200 

REM 

LE VARIABILI DA A0 AD B 


4 SONO TUTTI INDIRIZZI, NON 


DATI 


210 

A0 = 

PEEK (A) + PEEK (A + 1 


) * 

256: REM INIZIO ZONA DA 


TI 


220 

Al = 

8192: REM INIZIO TESTO 


IN MEMORIA 

230 A2 = 24576: REM FINE TESTO + 


1 

240 A3 = A + 2: REM INIZIO F’RQGR 
AMMA IN LINGUAGGIO MACCHINA 
250 A4 = A0 + 3: REM ORDINE DELL 
' ELABORAZIONE - 1 
260 A5 = A0 + 4: REM STRINGA DI 
CARATTERI DA CONFRONTARE 
270 A6 = A0: REM NUMERO CARATTER 
I VALIDI 

280 A7 = A0 + 1: REM INDIR. TABE 
LLA CAR. VALIDI <2 BYTE) 

290 A8 = A0 + 26: REM NUMERO CAS 
UALE PER L'ESTRAZIONE (2 BYT 
E L , H) 

300 A9 ~ A0 + 28: REM CARATTERE 
ESTRATTO 
310 B0 = A0 

ATTERI CONTATI 
320 B1 = A0 + 31: REM 
TARE LA STRINGA 
330 B2 = A0 + 32: REM 
DOPO VERIFICA 
340 B3 = - 16384: REM 


29: REM NUMERO CAR 


<>0 = SHIF 


FINE TESTO 


350 B4 = - 16368: REM RESET TAS 

TIERA 

360 IF PEEK (A3) = 76 AND PEEK 
(A3 + 3) = 76 THEN 400: REM 
C ' E ' 

370 PRINT D*"BLOADSCIMMI E.OBJ, Af 
9000": REM LINGUAGGIO MACCH 
INA 

380 GOTO 170 

390 : 

400 POKE Al,0: REM NON C'E' TES 
TO 

410 FI* = "<—**:EL* = "ELABORAZ." 

420 ONERR GOTO 1930: REM ERROR 
I PREVISTI 

430 N = PEEK (B4): REM LIBERA L 
A TASTIERA 

440 POKE 34,0: HOME : REM FINES 
TRA INTERA 

450 HTAB 10: INVERSE : PRINT "SC 
IMMIE DI EDDINGTON": NORMAL 

460 VTAB 3: PRINT n ELABORAZIONI 
INSENSATE SU TESTI SENSATI" 

470 VTAB 4: HTAB 6: PRINT "BY MA 
RCO MQRQCUTTI - BRESCIA" 


all'inconveniente bisognerebbe dispor¬ 
re di un testo enorme, ma questo esula 
dalla nostra portata. Comunque abbia¬ 
mo riportato anche un esempio di ordi¬ 
ne superiore al cinque (figura 9), par¬ 
tendo dal solito testo. 

Può essere interessante sapere che 
Hyes ha provato alcune varianti dell'e¬ 
sperimento. Ad esempio ha elevato al 
quadrato le frequenze dei caratteri du¬ 
rante l'elaborazione, ed ha provato an¬ 
che a elaborare testi basandosi sulle 
differenze delle frequenze caratteristi¬ 
che di due autori diversi. 

Entrambi gli esperimenti non hanno da¬ 
to risultati di rilievo. Noi aggiungiamo: 
perché non applicare gli stessi criteri 
alla musica? Oppure in qualche modo 
analogo, ma tutto da inventare, ad altre 
arti? Cosa resta di Beethoven dopo che 
una scimmia scatenata ha massacrato 


480 

VTAB 10: 

HTAB 7: 

PRINT 

"1 - 


CARICARE 

UN TESTO" 


490 

VTAB 11 : 

HTAB 7: 

PRINT 

"2 - 


ELABORARE UN TESTO" 


500 

VTAB 12: 

HTAB 7: 

PRINT 

"3 — 


STAMPARE 

IL TESTO" 


510 

VTAB 13: 

HTAB 7: 

PRINT 

"4 - 


STAMPARE 

SU MONITOR 

•FI* 

520 

VTAB 14: 

HTAB 7: 

PRINT 

"5 - 


STAMPARE 

SU STAMPANTE 1 

'F2* 

530 

VTAB 15: 

HTAB 7: 

PRINT 

"6 - 


SMETTERE 

" 



540 

VTAB 19: 

HTAB 7: 

PRINT 

"COSA 


VUOI FARE? 

GET R$: 

PRINT 

550 

R - VAL 

<R$): IF 

R < 1 

OR R > 


6 THEN PRINT BE*: GOTO 540 
560 IF R = 6 THEN VTAB 21: PRINT 


"OK, CIAO.": END 

570 ON R GOTO 610,830,1370,1530, 
1590 

580 : 

590 REM CARICA IL TESTO 

600 : 

6i0 HOME : VTAB 10: PRINT "COME 
Gl CHIAMA IL TESTO DA CARICA 
RE?" 

620 VTAB 12: INPUT "> "; NT* 

630 IF NT* = "" OR VAL (NT*) < 

, 0 THEN 430: REM NON C'E' 
RISPOSTA 

640 PRINT D*"VERIFY"NT*: REM CO 
NTROLLA L'ESISTENZA 

650 PRINT D*"OPEN"NT*: PRINT D*" 
READ"NT* 

660 FOR P = Al TO A2: GET C*: REM 
LEGGE 

670 POKE P, ASC (C*>: REM METTE 
IN MEMORIA 

600 NEXT : REM CONTINUA 

690 VTAB 16: PRINT Bl *"ATTENZION 
E: IL TESTO ERA PIIJ' LUNGO" 

700 PRINT "DI 16384 (16K) CARATT 
ERI, PER CUI" 

710 PRINT "NE E' STATO CARICATO 
SOLO UNA PARTE." 

720 PRINT D*"CLQSE"NT*: REM CHI 
UDE IL FILE 

730 LT = 16304: REM LUNGHEZZA TE 


la Quinta Sinfonia? E di Bach, così “ma¬ 
tematico” nelle sue composizioni? Noi 
comunque ci fermeremo qui, conclu¬ 
dendo con un programma per simulare 
le scimmie di Eddington. 

Come si diceva all’inizio, abbiamo 
svolto questi esperimenti su un Apple. Il 
lavoro di compilare la tabella delle pro¬ 
babilità, prima dell’estrazione di ogni 
carattere, è svolto da una routine in 
linguaggio macchina. La scelta era ob¬ 
bligata per ottenere una velocità di ese¬ 
cuzione accettabile. Anche così il pro¬ 
gramma non è proprio un proiettile, ma 
per i nostri scopi va bene. Il grosso del 
lavoro è gestito da BASIC; entrambi i 
programmi sono parecchio commenta¬ 
ti, in modo da permettere variazioni da 
parte dei lettori desiderosi di sperimen¬ 
tare ulteriormente le proprie capacità. 
La routine in linguaggio macchina 


STO 

740 VTAB 15: PRINT "IL TESTO E' 

DI "LT" CARATTERI." 

750 PRINT : PRINT "ORA ELIMINO Q 
UELL.I NON AMMESSI..." 

760 CALL A3 + 6: REM SUBROUTINE 
VERIFY 

770 LT = PEEK (B2) + 256 * PEEK 
(B2 + 1) - Al: REM NUOVA LU 
NGHEZZA 

780 PRINT : PRINT "RIMANGONO "LT 
" CARATTERI VALIDI" 

790 GOSUB 1710: GOTO 430 
800 : 

810 REM ELABORAZIONE 
820 : 

830 HOME : VTAB 10: INPUT "ORDIN 
E DELL'ELABORAZIONE? ";OE* 

840 OE = VAL (OE*): IF OE* = "" OR 
OE = 0 AND OE* < > "0" THEN 

430 

850 IF OE > =0 AND OE < = 10 THEN 

880 

860 VTAB 21: HTAB 6: PRINT BE*"L 
'ORDINE AMMESSO VA DA 0 A 10 

870 GOSUB 1710: GOTO 830: REM A 
SPETTA UN TASTO 

880 HOME : PRINT SPC< <7 - LEN 

( STR* (OE) + STR* (LT))) / 

2 ) ; 

890 GOSUB 1860: REM STAMPANTE 
900 INVERSE : PRINT EL;*" ORDINE 
"OE" SU "LT" CARATTERI" 

910 NORMAL 

920 POKE 34,2: PRINT : REM NON 
SCROLLA LE PRIME DUE RIGHE 

930 : 

940 IF OE = 0 THEN 990: REM SI 
PUÒ' SEMPRE FARE 

950 IF PEEK (Al) < > 0 THEN 99 

0: REM C'E' IL TESTO 
960 VTAB 12: HTAB 3: PRINT BE*"N 
ON C'E' NESSUN TESTO IN MEMO 
RIA ! " 

970 GOSUB 1710: GOTO 430 
980 : 

990 REM ELABORAZIONE DI QUALSIA 
SI ORDINE 
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provvede ad eliminare tutti i caratteri 
non ammessi, e a trasformare in maiu¬ 
scole le eventuali minuscole. Quindi si 
calcola la tabella vera e propria, secon¬ 
do l’ordine della elaborazione che si sta 
compiendo, ed infine estrae un caratte¬ 
re, tenendo conto della tabella, parten¬ 
do da un numero casuale passatole dal 
BASIC. Quando si richiede una elabora¬ 
zione di ordine superiore ad uno, viene 
estratto dapprima un carattere secon¬ 
do l’ordine uno, poi uno di ordine due e 
così via fino all'ordine.voluto, che rima¬ 
ne poi per tutto il testo. 

Per introdurre le suddette routine si 
può ricorrere ad uno dei vari Assembler 
(per l’Apple abbiamo usato l’SC Macro 
Assembler). Il programma oggetto va 
registrato sul disco assieme a quello 
BASIC con il nome “Scimmie Obj", dato 
che deve venire caricato da quest'ulti- 


i ma : 


1010 0 = 0: IF OE > =1 THEN 0 = 

1 : REM PARTE DA 0 0 DA 1 


1020 

POKE 

B1,0 

: REM NON SHIFTAR 


E LA 

STRINGA 


1030 

IT = 

PEEK 

(A7) + 256 * 

PEEK 


<A7 + 

1 ) : , 

REM INDIRIZZO TAB 


ELLA 




1040 

NS = 

10: REM NUMERO DI 

SCRO 


LL 




1050 

IF D 

< > 

1 THEN 1070: 

REM 


ORDINE <> 

1 


1060 

POKE 

A4,0i 

: CALL A3: REM CA 


LCOLO 

FREQ 

. PER ORDINE 

UNO 

1070 

IF 0 

.( s, 

0 THEN 1110: 

REM 


ORDINE <> 0 

1000 N = I NT < RND (1) » PEEK < 
A(b)): REM NUMERO CASUALE 
1090 CA = ( PEEK (IT + NI): REM 
CARATTERE ESTRATTO 


1100 

GOTO 

1220 


1 1 10 

IF 0 

= 1 THEN 1160: 

REM OR- 


DI NE = 

' 1 


1 120 

POKE 

A4,0 - 1: REM 

ORDINE 


DELLA 

ELABORAZIONE 


1 130 

POKE 

B1 , 1 : IF 0 < > 

OE THEN 


POKE 

B1,0 : REM NON 

DEVE SH 


IFTARE 


1140 

POKE 

A5 + 0 - 2,CA: 

REM CA 


RATTERE IN FONDO ALLA 

i STRINO 


A 



1 150 

CALL 

A3: REM CALCOLA LA TA 


BELLA DELLE FREQUENZE 
1160 NC = PEEK (B0) + 256 » PEEK 
(B0 + 1): REM NUM. TOT. DI 
CONTEGGI 

1170 IF NC = 0 THEN 1300: REM E 
STRAZI ONE IMPOSSIBILE 
1100 N = INT ( RND (1) • NC + 1) 

: REM NUMERO CASUALE 
1190 F'OK'E AB + 1,N / 256: F'OKE A 
B,N - PEEK (AB + 1) » 256 
1200 CALL A3 + 3: REM ESTRAE UN 
CAR. SECONDO LA TAB. DELLE 
FREQUENZE 

1210 CA = PEEK <A9): REM CARATT 
ERE ESTRATTO 

1220 PRINT CHR* (CAI;: REM STA 
MPA IL CARATTERE 


mo. 

Qualche parola sul metodo adottato 
per la simulazione. Non è l’unico possi¬ 
bile; ce n'è uno più veloce, ma richiede 
una quantità di memoria della quale 
noi, sui nostri personal, non disponia¬ 
mo. Il metodo prevede la compilazione 
di un'unica gigantesca tabella, conte¬ 
nente la probabilità di tutte le combina¬ 
zioni di lettere che compaiono nel testo 
fino all'ordine richiesto dall'elaborazio¬ 
ne. Un altro metodo, anch’esso veloce, 
richiede testi di partenza molto grandi, e 
siamo daccapo. Se vi viene qualche 
buona idea scrivete! 

L’uso del programma è semplice. Un 
menu propone le diverse scelte, poi il 
tutto è autoesplicante. Per elaborazioni 
di ordine zero non occorre nessun testo 
(la frequenza non interessa). Se però si 
vuole qualcosa di simile alla figura 1, si 


1230 IF 0 < OE THEN 0=0+ 1: REM 
AUMENTA L'ORDINE SE NECESSA 
RIO 

1240 GOSUB i770: REM SCROLLING 
A FINE SCHERMO 

1250 IF PEEK <B3> < 128 THEN 10 
70: REM NESSUN TASTO PREMUT 
0 

1260 IF FI* = "" THEN PRINT : PRINT 
D* ,, PRtt0“: GOTO 430: REM SM E 
TTE 

1270 GOSUB 1650: IF OK = 0 THEN 
430: REM SMETTE 
1280 GOTO 1070: REM PROSEGUE 
1290 : 

1300 IF FI* = "" THEN PRINT : PRINT 
D*"PR#0" 

1310 VTAB 24: HTAB 7: PRINT BE*" 

IMPOSSIBILE CONTINUARE 
1320 GET T*: REM ASPETTA UN TAS 
TO 

1330 GOTO 430 
1340 : 

1350 REM STAMPA TESTO ORIGINALE 
1360 : 

1370 GOSUB 1860: REM STAMPANTE 
1380 HOME : HTAB 11: INVERSE : PRINT 
"TESTO DA ELABORARE": NORMAL 

1390 POKE 34,2: PRINT : REM NON 
SCROLLA LE PRIME DUE RIGHE 
1400 NS = 18: IF PEEK (Al) < > 

0 THEN 1430 

1410 VTAB 12: HTAB 3: PRlNT DE*" 

NON C'E NESSUN TESTO IN MEM 
ORIA!" 

1420 GOSUB 1710: GOTO 450 
1430 FOR I = Al TO Al + LT - 1 
1440 CA = PEEK (I): REM CARATTE 
RE 

1450 PRINT CHR* (CA); : GOSUB 17 
70: REM SCROLLING 
1460 IF PEEK (B3) < 128 THEN 14 
90: REM NESSUN TASTO 
1470 IF FI* = “ " THEN PRINT : PRINT 
Df"PR#0": GOTO 430: REM SME 
TTE 

1400 GOSUB 1650: IF OK - 0 THEN 


430: REM SMETTE 


1490 

NEXT 

: GOSUB 1710: GOTO 

1500 



1510 

REM 

STAMPA SU MONITOR 

1520 



1530 

FI* = 

: F2* = "" 

1540 

EL* = 

"ELABORAZ." 

1550 

GOTO 

430 

1560 



1570 

REM 

STAMPA SU STAMPANTE 

1500 



1590 

FI* = 

" " : F24 = 

1600 

EL* = 

"ELABORAZIONE DI" 

1610 

GOTO 

430 

1620 



5 630 

REM 

** SUBROUTINES *# 

1640 




1650 OK « 0 :N = PEEK (B4>: REM 
LIBERA LA TASTIERA 
1660 X = PEEK (36):Y = PEEK (37 
): REM POSIZIONE ATTUALE 
1670 GOSUB 1710: IF T$ = CHR* ( 
13) THEN 1690: REM <CR> = S 
METTERE 

1600 OK = 1: REM NON SMETTERE 


1690 

VTAB 24: 

HTAB 1: 

: PRINT 

SPC ( 


39): HTAB 

X + 1: 

VTAB Y 

+ 1: 


RETURN 




1700 

1710 

VTAB 24: 

HTAB 1 



1720 

PRINT "PREMI UN 

TASTO QUALU 


NQIJE PER 

CONTINUARE"; 


1 730 
1740 

GET T*: 

RETURN 



1750 

REM SCROLLING 



1760 

1770 

IF PEEK 

(37) = 

23 THEN 

NS = 


NS + 1: CALL - 912: VTAB 23 


1780 IF NS < > 19 THEN 1820: REM 

PROSEGUE 

1790 NS = 0: GOSUB 1710: REM ASP 
ETTA UN TASTO 

1800 VTAB 24: HTAB 1: CALL - 86 
8: REM CANCELLA LA LINEA 
1810 VTAB 23 
1820 RETURN 
1830 : 

1840 £EM ABILITA*. STAMPANTE 
1850 : 

1860 IF FI* < > "" THEN 1090 

1070 VTAB 10: PRINT "ELABORAZIUN 
E IN CORSO. . . " 

1000 PRINT : PRINT D*"PR#1": PRINT 
I*"B0N" 


1890 

1900 

RETURN 



1910 

1920 

REM GESTIONE 

ERRORI 


1 930 

FR = PEEK (222 
DI ERRORE 

) : REM 

CODGE 

1940 

IF ER ~ 5 THEN 
ND OF DATA 

1980: 

REM E 

1950 

1960 

IF ER = 6 THEN 
ILE NOI FQJJND 
STOF 

2030: 

REM. F 


1970 : 

1900 PRINT D*"CLOSE"NT*: REM CH 


IUDE IL FILE 

1990 POKE P,0: REM SEGNA LA FIN 


2000 

E DEL TESTO 

LT = P - Al: REM 

LUNGHEZZA 

2010 

TESTO 

GOTO 740 


2020 



2030 

PRINT : PRINT : 

PRINT BE*"M 


I SPIACE, QUESTO 

FILE NON ES 

2040 

ISTE..." 

GOSUB 1710: REM 

ASPETTA UN 

2050 

TASTO 

GOTO 430 
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deve introdurre come testo un elenco 
composto da tutte le lettere dell'alfabe¬ 
to, dallo spazio e dai segni di interpun¬ 
zione. Questo perché il programma in 
linguaggio macchina ha un set di carat¬ 
teri che comprende anche i numeri ed 
altri segni, che in figura non appaiono 
mai. Una elaborazione di ordine uno su 
tale elenco equivale ad una di ordine 
zero con un set pari al testo in questio¬ 
ne. Se non ci credete, pensateci. 

I testi da elaborare devono essere su 
disco, contenuti per l’appunto in un file 
testo (tipo T). Per prepararli abbiamo 
usato l'Apple Writer II, che genera file 
del tipo richiesto. Si può usare qualun¬ 
que altro metodo in grado di ottenere 
tali file. 

Durante l'elaborazione il lavoro può 
essere momentaneamente interrotto 
premendo un tasto qualsiasi. Si può 
continuare premendone un altro, esclu¬ 
so il Return che provoca l'interruzione 
dell'elaborazione ed il ritorno al menu. 
Se appare un messaggio “Impossibile 
Continuare” significa che il procedi¬ 


mento ha raggiunto un vicolo cieco; i 
caratteri stampati compaiono solo alla 
fine del testo, quindi non è possibile una 
ulteriore estrazione. 

Se si vuole si può inviare il risultato del¬ 
l'elaborazione ad una stampante, cosa 
utile per poter conservare il lavoro otte¬ 
nuto. In questo caso, l'elaborazione vie¬ 
ne interrotta (senza possibilità di rico¬ 
minciare) premendo un tasto qualsiasi. 
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COMMODORE 641 


La simulazione 
dinamica di 
fenomeni continui 

Presentiamo la seconda parte dell’articolo 
comparso sul numero precedente 
con altri esempi più complessi 

di Franco Sardo Parte seconda 


S ul numero precedente abbia¬ 
mo visto come prevedere, si¬ 
mulando l'intero sistema, il 
fabbisogno di acqua per il raf¬ 
freddamento di un serbatoio caldo. 

La soluzione analitica del problema sa¬ 
rebbe stata enormemente più comples¬ 
sa della stesura del programma, peral¬ 
tro di poche linee, che ci ha consentito 
di studiare l'andamento della tempera¬ 
tura e degli altri parametri in esame, 
minuto per minuto, come se avessimo 
realmente a disposizione l'apparecchio. 
Il caso preso in esame era però parti¬ 
colarmente semplice, perché il sistema 
andava modificandosi con regolarità e 
sempre nella stessa direzione (raffred¬ 
damento). È ben raro che nella realtà 
capitino casi così elementari. I sistemi 
reali, sia naturali (biologici) che artifi¬ 
ciali (impianti) hanno quasi sempre una 
qualche forma di regolazione automati¬ 
ca. Ciò significa che il sistema si mantie¬ 
ne in una condizione di equilibrio corri¬ 
spondente a certi valori richiesti, cor¬ 
reggendo da solo le deviazioni. Tanto 
più il sistema è complesso, tanto più è 
autoregolante. 

Ad esempio, nel caso ben noto dell’e¬ 
quilibrio ecologico fra conigli e volpi, il 
sistema oscilla con cicli di sei anni intor¬ 
no a valori medi sempre costanti. In al¬ 
cuni periodi le volpi sono poche e i coni¬ 
gli abbondano; quindi le volpi, dispo¬ 
nendo di cibo a volontà (i conigli) proli¬ 
ficano e pertanto i conigli diminuisco¬ 
no. In conseguenza, le volpi in eccesso 
muoiono di fame, diminuiscono di nuo¬ 
vo e sono i conigli a proliferare. 

E così via, con oscillazioni sinusoidali 
intorno ad un punto di equilibrio. 
Analogamente avviene per sistemi co¬ 
struiti daH’uomo: lo scaldabagno ha la 
resistenza interna in funzione; non ap¬ 
pena la temperatura dell'acqua rag¬ 
giunge il valore prefissato, il termostato 
la fa spegnere; quando la temperatura 
scende di qualche grado sotto il valore 
richiesto, sempre il termostato reinseri¬ 
sce la resistenza. 

La temperatura richiesta si chiama set 
point, o punto di taratura. L'azione del 
termostato sulla resistenza che riscalda 
l’acqua è un’azione di feedback , ovvero 
una retroazione. 

Il concetto di retroazione sta alla base 
di tutta la regolazione automatica; ve¬ 
diamo subito un esempio che lo illustra. 
Immaginiamo di dover riscaldare un 


ambiente, ad esempio un cinema, me¬ 
diante un sistema di termoventilazione 
che distribuisca aria calda mediante 
canali in lamiera dotati di appositi diffu¬ 
sori. L'aria viene prelevata dall'ambien¬ 
te, riscaldata dal passaggio attraverso 
una batteria di riscaldamento (una spe¬ 
cie di gigantesco termosifone costituito 
da tubi alettati in cui passa acqua cal¬ 
da) e reimmessa nella sala mediante un 

Figura 1 - Una rappresentazione del sistema. 


ventilatore. Per comodità esemplificati¬ 
va supponiamo che nessuna frazione 
deH’aria venga espulsa, ma che si ricicli 
sempre la stessa aria. 

Il sistema può essere rappresentato co¬ 
me in figura 1. 

La portata di acqua calda transitante 
entro la batteria di riscaldamento viene 
regolata mediante una valvola servoa¬ 
zionata, a sua volta comandata da un 


C F 
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sensore di temperatura posto nell’am¬ 
biente. Tanto più il valore di temperatu¬ 
ra avvertito è lontano dal valore richie¬ 
sto (set point), tanto più si aprirà la 
valvola e tanta più acqua calda affluirà 
alla batteria. 

Ecco un esempio tipico di retroazione: 
il sensore, posto a valle, misura la gran¬ 
dezza e regola l’attuatore (la valvola) 
controllandone gli effetti o meglio do¬ 
sandone l'azione in base agli effetti pro¬ 
dotti. 

Poiché l’apertura della valvola è pro¬ 
porzionale alla distanza della tempera¬ 
tura misurata da quella richiesta, ad un 
certo valore di differenza, ad esempio 3 
gradi, la valvola sarà tutta aperta e pas¬ 
serà tutta la portata d’acqua disponibi¬ 
le. Questo intervallo di 3 gradi entro cui 
la valvola modula , cioè non è né tutta 
aperta né tutta chiusa, ma aperta par¬ 
zialmente, viene chiamato campo pro¬ 
porzionale o banda proporzionale. 

È dunque la differenza rispetto al valore 
richiesto che provoca l'apertura della 
valvola, l'afflusso dell’acqua calda e 
quindi la variazione di temperatura del¬ 
l'ambiente; L’equazione di tasso, che 
esprime questa azione, sarà: 

Apertura = K (Set point - T) 

La massima potenzialità erogabile dal¬ 
la batteria corrisponde alla massima 
portata di acqua calda, cioè alla valvola 


tutta aperta; poiché: 

Q = P ★ Cs ★ dT 

dove P è la portata (che assumiamo di 
20.000 It/h), Cs il calore specifico (1 per 
l’acqua) e dT la differenza di temperatu¬ 
ra dell'acqua fra ingresso e uscita delia 
batteria (salto termico, che assumiamo 
di 10° C); avremo: 

Q = 20.000 ★ 1 ★ 10 = 200.000 Kcal/h 

A seconda del grado di apertura della 
valvola, la batteria sarà dunque in gra¬ 
do di erogare da 0 a 200.000 Kcal/h. 
Esprimiamo ora l'apertura della valvola 
in percentuale rispetto alla massima a- 
pertura (passaggio totale). La massima 
apertura si ha, come abbiamo detto, 
quando la differenza rispetto al set 
point è pari o superiore alla banda pro¬ 
porzionale (3°C); avremo quindi: 

a) APERTURA MAX = K(BP) 

Se la differenza misurata rispetto al set 
point è inferiore, avremo un’apertura 
parziale: 

b) APERTURA = K(S.P. - T) 

Dividendo membro a membro la b) per 
la a) avremo: 

C) APERTURA/APERT.MAX = APER% 
= (SP - TJ/B.P. 


Questo rapporto Apertura/Aper. Max, 
che indica l'apertura della valvola in %, 
è un numero puro, adimensionale, che 
varia da 0 a 1 (valvola tutta 
chiusa/valvola tutta aperta). 

Poiché anche se la temperatura misu¬ 
rata si discosta dal set point di più di 3 
gradi, la valvola più che tutta aperta 
non può essere, dovremo aggiungere 
una limitazione: 

IF APER% > 1 THEN APER% = 1 

mediante l'equazione c) e questa linea 
di BASIC, avremo espresso la relazione 
che lega la misura del sensore (termo¬ 
stato) alle condizioni dell’attuatore (val¬ 
vola). 

Dall'apertura percentuale della valvola 
si calcola la portata di acqua calda 
passante nella batteria: 

d) P = APER% ★ Pmax 

Da questa, noto II calore specifico e il 
salto termico, risaliremo, come mostrato 
prima, alle calorie erogate. Se la portata 
è espressa in It/h avremo il risultato in 
Kcal/h; basterà dividere per 60 per otte¬ 
nere il calore emesso in Kcal/min. Chia¬ 
miamo dQ la differenza fra calore forni¬ 
to all'ambiente in questo modo e calore 
disperso dall'ambiente attraverso le pa¬ 
reti, il soffitto, ecc. Quale sarà l'aumento 
di temperatura provocato da questo oa- 


Llstato 1 - Il primo programma. 


100 REM ******************************* 
1055 REM * SIMULAZIONE DI CIRCUITI * 
115 REM * DI RETROAZIONE * 

120 REM ******************************* 
130 : 

150 REM DATI 
160 REM **** 

170 PMAX=20000: REM PORTATA ACQUA CALDA 
180 ARIA=10000:REM QUANTITÀ' ARIA IN CIR 
COLO 

190 DISP=50000: REM DISPERSIONI AMBIENTI 
200 .CIS =0.3 : REM CALORE SPECIFICO ARIA 

210 C2S =1 : REM CALORE SPECIFICO ACQU 

A 

211 SP =18 : REM SET POINT TEMPERAT. A 


MBIENTE 

212 BP =M : REM BANDA PROPORZIONALE 

213 SA=10 : REM SALTO TERMICO ACQUA CAL 

DA 

220 : 

222 REM CONDIZIONI INIZIALI 

223 REM ******************* 

225 MIN=0 : REM CONTATORE DEL TEMPO 

226 TEMPERAT=10 

227 IS=1 : REM INTERVALLO DI S0LUZI0 

NE 

22Ó MIN=0 : REM CONTATORE DEL TEMPO 

229 : 

230 REM INIZIALIZZAZ.STAMPA 

231 REM ******************* 

232 OPEN4.4 

233 PRINTtM), "MINUTI (10 SPC TEMPERATURA{3 

SPC}% APERTURA VALV0LA{3 SPC}PORTAT 
A A.CALDA" 


74 





Simulazione dinamica di fenomeni continui 


COMMODORE 64 


lore sulla massa d'aria circolante? 
e) dT = dQ/(0,29 ★ ARIA) 

dove 0,29 è il calore specifico dell’aria e 
Aria la sua quantità in me. Questa varia¬ 
zione sarà espressa in gradi/minuto. 

La temperatura dell'ambiente, quindi, 
aumenterà gradatamente: 

f) T = T + dT ★ min 

dove min è l'intervallo di soluzione scel¬ 
to per ogni ciclo di simulazione; esso 
potrà essere, ad esempio 5 minuti. 

Ed ecco che dall'equazione di tasso c), 
tramite le equazioni intermedie d) ed e) 
si arriva all'equazione di livello f). 

Il calcolo che abbiamo riportato risen¬ 
te di alcune grossolane semplificazioni. 
Ad esempio, in un impianto del genere 
si effettua sempre un'espulsione di una 
parte dell'aria, e il prelievo dall’esterno 
di una uguale quantità; inoltre, le di¬ 
spersioni dell'ambiente non sono fisse, 
ma, come è ovvio, dipendono dalla dif¬ 
ferenza fra la temperatura ambiente e la 
temperatura esterna. Ancora, una parte 
del calore emesso dalla batteria viene 
consumato da processi di umidificazio¬ 
ne dell'aria; lo scambio sulla batteria e 
quindi la sua resa, dipendono dalla 
temperatura dell'aria, e così via. 

Tener conto di tutti questi fattori, pur 
aumentando la precisione, avrebbe fat¬ 
to perdere di vista l’obiettivo principale, 


23^ PRINT#4 
236 : 

240 : 

230 REM EQUAZ. DI TASSO 
260 REM *************** 

270 APER=(SP-TEMPERAT)/BP 
280 IF APER >1 THEN APER=1 
290 IF APER <0 THEN APER=0 
292 : 

294 : 

300 REM EQUAZIONI INTERMEDIE 
310 REM ******************** 
320 P=APER*PMAX 
330 Q=P*SA*C2S 
340 Q=Q-DISP 
350 Q=Q/60 

353 DTEMP=Q/(C1S*ARIA) 

360 : 

370 : 


che è la definizione della tecnica da 
utilizzare. Si consideri quindi quello de¬ 
scritto come un sistema ideale, avente 
solo un valore esemplificativo. 

Vediamo adesso come quanto detto 
possa essere trasformato in un pro¬ 
gramma in BASIC. 

Ancora una volta le parti componenti il 
programma sono le seguenti: 

1) enunciazione dei dati di calcolo; 

2 ) definizione condizioni iniziali; 

3 ) ciclo, costituito da: 

• equazioni di tasso; 

• equazioni intermedie; 

• equazioni di livello; 

• stampa delle condizioni al tempo t; 

• aggiornamento del contatore del 
tempo. 

Come dati di calcolo abbiamo posto: 


Inserendo le equazioni di tasso, le e- 
quazioni intermedie e quelle di livello 
già definite, otterremo il programma ri¬ 
portato nel listato 1. 

Il ciclo si ripeterà indefinitamente, finché 
non lo interromperemo con un 
Run/Stop. 

Potremo effettuare con questo pro¬ 
gramma una serie di esperimenti, ve¬ 
dendo come varia il tempo necessario a 
raggiungere le condizioni richieste se si 
diminuisce la portata 0 se si aumentano 
le dispersioni. 

È importante inoltre osservare come la 
regolazione automatica adegua grada¬ 
tamente la temperatura al set point, se¬ 
condo il grafico riportato in figura 3. 
Abbiamo visto come effettuare la simu¬ 
lazione di un sistema fisico (impianto di 


• portata max acqua calda; 

PMAX 

= 20.000 

It/h; 

• dispersioni ambienti; 

DISP 

- 50.000 

Kcal/h; 

• volume aria trattata; 

ARIA 

= 10.000 

me; 

• calore specifico aria; 

C1S 

= 0,3 

°C/9.cal; 

• salto termico acqua; 

ST 

= 10 

°C; 

• calore specifico acqua; 

C2S 

= 1 

°C/9.cal; 

• set point; 

SP 

= 18 

°C; 

• banda proporzionale; 

BP 

= 4 

°C. 

Come condizioni iniziali porremo: 




• tempo; 

MIN 

= 0; 


• temperatura ambiente; 

TA 

= 10 

°C; 

• intervallo di soluzione. 


= 1 

min. 


400 REM EQUAZIONI DI LIVELLO 
410 REM ******************** 

420 TEMPERAT=TEMPERAT+DTEMP*IS 
450 : 

460 : 

500 REM STAMPA 
510 REM ****** 

520 PRINT#4,CHR$(16)CHR$(48)CHR$(0)MIN; 
530 PRINT#4,CHR$(16)CHR$(50)CHR$(0)INT(T 
EMPERAT*100 )/100 ; 

540 PRINT#4,CHR$(16)CHR$(52)CHR$(0)INT(A 
PER*100); 

550 PRINT#4,CHR$(16)CHR$(54)CHR$(0)INT(P 

) 

590 : 

600 : 

610 MIN=MIN+1 
630 : 

640 GOTO 250 
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riscaldamento a termoventilazione) 
comprendente controlli automatici. 
L’esempio riportato è estremamente 
semplificato, ma sufficiente a dimostra¬ 
re che la regolazione automatica, nella 
realtà, come nella simulazione al calco¬ 
latore,, consiste nei seguenti tre passi: 

• misura; 

• confronto con un valore predetermi¬ 
nato e in base allo scostamento rileva¬ 
to; 

• azionamento di un attuatore posto a 
monte del punto di misura. 

Abbiamo anche visto che questo ciclo si 
chiama di retroazione o di feedback. 
Dal punto di vista realizzativo, ciò corri¬ 
sponde ad installare dei sensori che 
leggono una misura e dei regolatori che 
la confrontano col set point e danno un 
comando all’attuatore, che può essere 
una valvola servoazionata o qualunque 
altro sistema che valga a variare la 
grandezza fino a farle raggiungere il 
valore richiesto. 

Armati di queste conoscenze, passia¬ 
mo adesso ad esaminare un esempio 
un po’ più complesso: un impianto di 
condizionamento d'aria. 

La differenza rispetto all’esempio pre¬ 
cedente è che in questo caso l’aria, oltre 
che riscaldata, può anche essere raf¬ 
freddata. Occorreranno quindi due bat¬ 
terie di scambio acqua/aria, una ali¬ 
mentata ad acqua calda e l’altra ad 
acqua gelida. 

L’afflusso di acqua ad ogni batteria è 
regolato da una valvola servoazionata, 
che varia la portata circolante da zero 
ad un valore massimo. Assumiamo an¬ 
cora una volta che il salto termico del¬ 
l’acqua sia costante, cioè che l'acqua 
calda entri nella batteria a 80°C ed esca 
a 70°C, e che l’acqua refrigerata entri a 
7°C ed esca a 12°C. 

Se la portata d'aria è costante, se le 
batterie sono calcolate per questi valori 
e se la temperatura dell’aria, una volta a 
regime, non varia molto, questa assun¬ 
zione è abbastanza vicina alla realtà. 

Il calore ceduto o sottratto all’aria nel¬ 
l'unità di tempo sarà dunque: 

Q = P ★ ST ★ CS 

dove P è la portata d’acqua, ST il suo 
salto termico e CS il suo calore specifi¬ 
co, pari ad 1, 

Dal punto di vista della regolazione au¬ 
tomatica, consideriamo che esista un 


sensore di temperatura posto in am¬ 
biente (termostato). Esso manda la mi¬ 
sura letta ad un regolatore. Se la tempe¬ 
ratura scende sotto il valore di set point 
si apre la valvola dell'acqua calda, se 
sale al di sopra si apre quella dell’acqua 
fredda. 

Ciò è visualizzato nel grafico di figura 4. 
La banda proporzionale la assumiamo 
in questo caso di tre gradi in entrambe 
le direzioni. Cioè una delle due valvole è 
tutta aperta se il valore di temperatura 
letto dal sensore differisce di tre gradi o 
più dal set point. 

Per quanto detto nell’articolo prece¬ 
dente, per la valvola dell’acqua calda 
sarà: 


APER% = (TE-SP)/BP 

e per quella dell’acqua fredda sarà: 

APER% = (SP - TE)/ BP 

Lo schema dell’impianto sarà quello di 
figura 5. 

L'unità di trattamento dell’aria è costi¬ 
tuita dalle due batterie e dal ventilatore. 
L’aria è inviata in ambiente mediante 
canali di lamiera, e con altri canali è 
ripresa e inviata all’unità di trattamento. 
Poniamo ancora una volta pari a 
10.000 me il volume di aria in circolo, a 
10.000 It/h la portata max alla batteria 
calda, 20.000 It/h la portata max alla 
batteria fredda, 10°C il salto termico del- 


Flgura 2 - L’Intervallo chiamato banda proporzionale. 



Figura 3 - La regolazione automatica adegua gradatamente la temperatura al set point. 
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Figura 4 - Lo schema per il secondo esempio. 


APERTURA 



3 »|- - 3 ~ *4“ 


Figura 5 - La rappresentazione dell’impianto. 



l'acqua calda e 5°C quello dell'acqua 
gelida, 20°C il set point richiesto, 3°C la 
banda proporzionale dei regolatori. 

Le dispersioni di calore verso l'esterno 
dipenderanno dalla differenza di tem¬ 
peratura fra interno ed esterno: 

DISP = k (T. ambiente - T. esterna) 

Esse assumono valore positivo (calore 
uscente dall’ambiente) per temperature 
esterne basse, e valore negativo (calore 
entrante nell'ambiente) per temperatu¬ 
re esterne alte. 


Poiché le dispersioni raggiungono il 
valore di progetto (CT, carichi termici) 
alle condizioni standard a cui sono sta¬ 
te calcolate, (temperatura interna al set 
point e temperatura esterna al minimo, 
di solito 0°C), k dovrà valere CT/20: 

DISP = (CT/20) (T.amb-T.est) 

Le due batterie non lavoreranno, come 
è ovvio, contemporaneamente, ma in 
alternativa l’una all'altra, come mostra¬ 
to dal grafico della regolazione (figura 
4). 


Quindi nelle equazioni intermedie ab¬ 
biamo un branch: se la temperatura 
ambiente è maggiore del set point, il 
regolatore agirà sulla valvola dell'ac¬ 
qua gelida. Se è più bassa del set point, 
su quella dell'acqua calda. Quindi la 
variazione di temperatura, DTEMP, sarà 
negativa in un caso e positiva nell'altro. 
Lo schema del programma è il solito: 

1) inserimento dati; 

2 ) definizione condizioni iniziali; 

3 ) ciclo, costituito da: 

• equazioni di tasso, 

• equazioni intermedie, 

• equazioni di livello, 

• stampa delle condizioni al tempo T, 

• aggiornamento dell'orologio. 

Il programma continuerà il ciclo finché 
non verrà fermato. 

Per aggiungere un tocco di realismo al 
tutto, visto che le dispersioni sono fun¬ 
zione della temperatura esterna, si in¬ 
troduce una routine che la fa variare 
ciclicamente, un po' come nelle ore del 
giorno, fra 0 e 35°C. In questa routine sì 
è introdotta una variabile random, e si 
ha quindi una certa percentuale di 
casualità. La temperatura esterna di¬ 
venta quindi una variabile stocastica. 

Il programma completo è riportato nel 
listato 2; facendolo girare, si vedranno 
le valvole calda e fredda aprirsi, coman¬ 
date dai regolatori, e la temperatura 
ambiente mantenersi costante 
( + /-2°C) malgrado il brutale variare 
della temperatura esterna. 

Nella realtà le cose stanno un po' diver¬ 
samente, perché una parte del calore 
sottratto dalla batteria fredda serve a 
condensare l'eccesso di umidità dell'a¬ 
ria, e quindi l’aria stessa non si raffred¬ 
da quanto si potrebbe pensare. Per non 
dover tenere conto delle condensazioni 
sulla batteria fredda, dobbiamo quindi 
supporre che l'aria in circolo sia abba¬ 
stanza secca (sotto il 50% U.R. a 25°C). 

Introdurre le variazioni di umidità, an¬ 
che se cosa normalissima nel calcolo 
degli impianti di condizionamento, si¬ 
gnificherebbe dare per note alcune co¬ 
gnizioni di fisica tecnica che viceversa 
non lo sono per tutti. 

Il nostro impianto manterrà dunque sol¬ 
tanto la temperatura. 

Con questo modello di impianto di con¬ 
dizionamento si potranno fare alcune 
semplici sperimentazioni: 
a) aumentare le dispersioni o ridurre le 
portate di acqua, calda e fredda, per 
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vedere cosa succede quando l'impian¬ 
to è sottodimensionato; 

b) ridurre la massa d’aria trattata, per 
vedere cosa succede quando l'impian¬ 
to è sovradimensionato; 

c) variare il set point, chiedendo condi¬ 
zioni estreme, come 35°C o 5°C; 

d) variare l'intervallo di soluzione IS, che 
è stato posto ad 1 minuto, portandolo a 
5 e poi a 10 minuti; 

e) variare il campo proporzionale, BP. 
Tutte queste prove, che potranno esse¬ 
re fatte in pochi minuti, portano alle se¬ 
guenti considerazioni, valide sia per la 
simulazione di sistemi che per la regola¬ 
zione automatica applicata nella realtà, 

a) Come è ovvio, l'impianto deve essere 
correttamente dimensionato, cioè deve 
essere in grado di mantenere le condi¬ 
zioni richieste. Se ad esempio per man¬ 
tenere 20°C quando fuori ce ne sono 2 


occorrono 100.000 Kcal/h, la batteria 
calda deve essere in grado di fornirle, 
sopperendo alle richieste di punta con 
un margine di sicurezza. Chiedere un 
set point di 35°C significa forzare la bat¬ 
teria calda oltre le sue possibilità; altret¬ 
tanto vale per la batteria fredda se si 
impongono 10°C quando fuori ce ne 
sono 35. 

b) Per quello che è il discorso fatto ini¬ 
zialmente sulle equazioni differenziali, 
l’intervallo di soluzione deve essere pic¬ 
colo. Nella realtà il tempo di reazione 
effettivo dei sistemi di regolazione (par¬ 
ticolarmente sensori e attuatori) non 
deve essere troppo breve, perché altri¬ 
menti si innescano pendolazioni (sbalzi 
della temperatura in su e in giù), né 
troppo lungo, perché altrimenti ci si di¬ 
scosta troppo dal set point. 

c) Variare la banda proporzionale signi¬ 


fica indurre un effetto della regolazione 
più o meno marcato. Se ad esempio si 
impone una BP di 1 grado, non appena 
la temperatura ambiente scende di un 
grado rispetto al valore richiesto, la val¬ 
vola dell'acqua calda si apre totalmen¬ 
te, provocando un forte riscaldamento 
dell'aria: ciò a sua volta provocherà l’a¬ 
pertura totale della valvola fredda con 
conseguente brusco raffreddamento, 
ed ecco che ancora una volta si inne¬ 
sca la pendolazione, sintomo evidente 
di sistemi mal progettati o mal tarati. 

Quindi il campo proporzionale dei re¬ 
golatori, il tempo di risposta e il dimen¬ 
sionamento delle batterie deve essere 
un tutt'uno armonico e proporzionato, 
onde evitare grossi problemi durante il 
funzionamento. Per fortuna, il sistema 
può essere facilmente collaudato prima 
della costruzione mediante la tecnica di 


Listato 2-11 secondo programma. 


100 

105 

110 

115 

120 

130 

150 

160 

165 

170 

175 

180 

190 
200 

210 

21 1 

212 

213 

21 4 

220 

221 

222 

223 


REM ***** ********xxxxxx#x*x******** 
REM * SIMULAZIONE DI UN IMPIANTO * 
REM * * 
REM * DI CONDIZIONAMENTO * 
REM ******************************* 

REM DATI 
REM **** 


P1MAX = 10000 : REM 
P2MAX = 20000: REM 
ARIA=10000 : REM 
RCOLO 

CT=100000 : REM 

C1S =0.3 : REM 

A 

C2S =1 : REM 

UA 

SP =20 : REM 

AMBIENTE 
BP =3 : REM 

SIA=10 : REM 

CALDA 

S2A =5 : REM 

FREDDA 


PORTATA ACQUA CALDA 
PORTATA ACQUA FREDDA 
QUANTITÀ’ ARIA IN CI 

DISPERSIONI AMBIENTI 
CALORE SPECIFICO ARI 

CALORE SPECIFICO ACQ 

SET POINT TEMPERAT. 

BANDA PROPORZIONALE 
SALTO TERMICO ACQUA 

SALTO TERMICO ACQUA 


REM CONDIZIONI INIZIALI 
RE M ******************* 


224 : 


225 

MIN=0 

: REM 

CONTATORE DEL 

TEMPO 

226 

TAMB=30 

: REM 

TEMPERATURA 

AMBIENTE 

227 

IS=1 

: REM 

INTERVALLO 

DI 

SOLUZIO 


NE 





228 

TEST=35 

: REM 

TEMPERATURA 

ESTERNA 


229 SEGN0=-1 

230 : 

231 : 

234 REM INIZIALIZZAZ.STAMPA 

235 REM ******************* 

236 : 

240 OPEN4.4 

242 PRINT//4 , "MINUTI ( 3 SPC }TEMP . ESTERNA {2 
SPC} %MAL .CALDA(2 SPC}?VAL.FREDDA{7 
SPC}TEMP.AMBIENTE" 

245 PRINT//4 

248 : 

249 : 

250 REM EQUAZ. DI TASSO 
260 REM *************** 

265 : 

270 A1 PER=(SP~TAMB)/BP 
280 IF Al PER >1 THEN A1PER = 1 
290 IF Al PER <0 THEN A1PER=0 
292 : 

295 A2PER=(TAMB-SP)/BP 

296 IF A2PER >1 THEN A2PER=1 

297 IF A2PER <0 THEN A2PER=0 

298 : 
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Simulazione dinamica di fenomeni continui 


COMMODORE 64 


simulazione ora esposta. Poiché essa è 
uguale per tutti i sistemi continui e dina¬ 
mici, il lettore dovrebbe già essere in 
possesso delle armi necessarie ad af¬ 
frontare la maggior parte dei problemi 
che gli si presenteranno. 

A conclusione di questa serie di articoli, 
speriamo non troppo noiosi, si possono 
trarre le seguenti conclusioni: ogni volta 
che in un "sistema", inteso come insie¬ 
me di parti interagenti isolato da in¬ 
fluenze esterne, avvengono dei fenome¬ 
ni descrivibili quantitativamente me¬ 
diante una serie di equazioni che metto¬ 
no in relazione le grandezze coinvolte 
( = modello matematico), è possibile si¬ 
mulare al calcolatore il sistema stesso, 
al fine di studiarne il comportamento 
“in vitro”. 

E ciò anche se il sistema comprende, 
come succede quasi sempre, grandez¬ 


299 : 

300 REM EQUAZIONI INTERMEDIE 
305 REM ******************** 
310 : 

320 DISP=CT*(TAMB-TEST)/20 

325 : REM BRANCH 

330 IF TAMB >SP THEN 360 

335 REM FALSE 

340 : PCALDA=A1PER *P1MAX 

342 : QC=PCALDA*S1A*C2S 

344 : QC=QC-DISP 

346 : QC=QC/60 

350 : DTEMP = QC/(CIS*ARIA) 

355 GOTO390 

360 REM TRUE 

365 : PFR=A2PER *P2MAX 

367 : QF=-PFR*32A*C2S 

370 : QF=QF-DISP 

375 : QF=QF/60 

380 : DTEMP = QF/(CIS*ARIA) 

390 REM END BRANCH 

395 : 

397 : 

400 REM EQUAZIONI DI LIVELLO 
410 REM ******************** 
415 : 

420 TAMB=TAMB+DTEMP*IS 
450 : 

460 : 

500 REM STAMPA 


ze variabili nel tempo e regolazioni au¬ 
tomatiche. 

Ciò porta a straordinari vantaggi sia 
nella comprensione del sistema stesso, 
che nella possibilità di previsione del 
suo comportamento e nella sua ottimiz¬ 
zazione, vantaggi che non si potrebbe¬ 
ro ottenere per altra via. 

In altre parole, la simulazione consente 
di usare il computer come mezzo di a- 
nalisi della realtà. 
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510 REM ****** 

515 : 

520 PRINT//4,CHR$( 1 6)CHR$(48)CHR$(0)MIN; 
530 PRINT#4,CHR$(16)CHR$(49)CHR$(0)INT(T 
EST*100)/100 ; 

540 PRINT#4,CHR$(16)CHR$(51)CHR$(0)INT(A 
1 PER*100); 

550 PRINT//4,CHR$(16)CHR$(52)CHR$(0)INT(A 
2PER*100)j 

560 PRINT#4,CHR$(16)CHR$(54)CHR$(0)INT(T 
AMB*100)/100 
590 : 

600 : 

605 REM AGGIORNAMENTO OROLOGIO 

606 REM ********************** 

607 : 

610 MIN=MIN+IS 
650 : 

660 : 

1000 REM ROUTINE VARIAZIONE CASUALE TEMP 
ERAT. ESTERNA 

1010 REM ******************************* 
************* 

1020 : 

1030 TEST=TEST + INT(3*RND(1))*SEGNO 
1040 IF TEST >33 THEN SEGN0=-1 
1050 IF TEST<2 THEN SEGN0=1 
1060 : 

1070 : 

2000 GOT0250 
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Apple 


Vendo Apple II plus originale, perfetto, con scheda 
language 16 Kbyte, scheda controller per due drive, 
drive originale Apple a L. 1.280.000. Superoccasione! 
Roberto Rossi - Via Lario, 26 - 20159 Milano - Tel. 
02/6070236 


Vendo Apple Ile unita centrale, monitor, stampante, 
drive, programma Applework. Mai usato, L. 3.000.000 
con fattura. Telefonare ore ufficio. Lorenzo Frigerio - 
Via G. Sacchi, 7 - 20121 Milano - Tel. 02/837556 


Commodore 


Vendo Commodore 16 con registratore, joystick e molti 
giochi più riviste a L. 350.000. Usato pochissime volte, 
causa passaggio a Plus/4. Gianni Darra - Viale Unghe¬ 
ria, 11 - 20138 Milano - Tel. 02/503157 


Vendo plotter 1520 Commodore a L. 350.000 trattabili; 
scheda - cartuccia CP/M per C64 nuova con manuale 
ed eventuali testi sull’argomento a L. 150.000. Adriano 
Sartori - c/o Ufficio Postale - 34071 Cormons (GO) 


Cerco persone che si dedicano allo sviluppo di softwa¬ 
re In linguaggio macchina per C64 e che abbiano buo¬ 
ne idee da realizzare. Parliamone insieme! Enrico - 
Milano-Tel. 02/8350804 


Vendo VIC 20 con manuale e 5 cassette di videogiochi a 
L. 99.000. Telefonare ore pasti. Aimone Castelli - Via 
Enrico Fermi, 11 - 22070 Guanzate (CO) - Tel. 976375 


Vendo Commodore 710 128 Kbyte RAM più 
dual drive 8250LP 2 Mbyte in linea, amplifica¬ 
tore BF, 6 libri, programmi vari. Il tutto a L. 
5.000.000. Telefonare a; Gianni Dal Checco - 
Via S. Giacomo, 106 - 39050 S. Giacomo di 
Laives (B2) - Tel. 0471/941508 


Vendo prlnter/plotter 1520 Commodore e software de¬ 
dicato a L. 290.000. Tutto in perfette condizioni. Dario 
Galbiati - Via Fleming, 8/A - 20059 Vimercate (MI) - Tel. 
039/681042 


Cambio, vendo, compro software per C64. Mi interessa 
il programma Oroscopo solo se di ottima qualità. Scri¬ 
vere o telefonare a: Cav. Uff. Livio Modena - Via Dante 
Alighieri, 110 - 18038 Sanremo (IM) - Tel. 73079 


Vendo Commodore SX-64 (di recente acquisto) con 12 
mesi di garanzia e tutto il miglior software con manuali 
(Easy Script, Cale Result, Flight Simulator, ecc.) a L. 
1.800.000. Carlo Vitti - Via Argentina, 24 - 27029 Vigeva¬ 
no (PV)-Tel. 0381/72049 


Compro manuali In italiano per il C64. Inviare liste e 
proposte a: Antonio Agus - Via S.Antonio, 31 - 09016 
Iglesias (CA) 


Sono disperatamente alla ricerca di un modem per 
C64. Michele Petracca - Via Donatello, 12 - 35027 No¬ 
vanta Padovana (PD) - Tel. 049/627164 


Vendo per C64 programma per rappresentanti con cal¬ 
colo provvigioni e segnalazione clienti da visitare. Per 
ulteriori informazioni telefonare ore serali. Calcedonio 
Meli - Via G. Amico Valenti, 89 - 93100 Caltanissetta - 
Tel. 0934/23365 


Causa passaggio ad altro sistema, vendo Plua/4 con un 
mese di vita, ancora In garanzia, più registratore, joy¬ 
stick, programmi e manuali. Prezzo da stabilire. Alber¬ 
to Cristofari - Via Pastoris, 94 - 13043 Cigliano (VC) - 
Tel. 0161/44263 


Vendo drive 1541 nuovo modello (quello con la chiavet¬ 
ta) mal usato, garanzia ancora da spedire, a prezzo 
interessante. Franco Fantoni - P.O. Box 259 - 51100 
Pistoia-Tel. 0573/2204 


Vendo VIC 20 più registratore, consolle Intellevison, 4 
cassette a L. 235.000. Cambio con C16 o ZX Spectrum 
16/48 Kbyte. Vendo in blocco o singolarmente. Telefo¬ 
nare ore pasti. Nicola Portas - Via Molise, 14 - 09100 
Cagliari - Tel. 070/490697 


Vendo Plus/4 più drive nuovissimi. Telefonare ore uffi¬ 
cio. Rocco Ciliberti - Via Marchesi, 10 - 20067 Paullo 
(MI) - Tel. 02/7490865 


Se il tuo Commodore 64 è guasto, lo posso riparare In 
meno di una settimana. Inoltre acquisto C64 danneg¬ 
giati per riutilizzo componenti. Per informazioni: Ser¬ 
gio Fiorentini - Corso Genova, 7 - 20123 Milano - Tel. 
02/8350804 


Sinclair 


Cerco possessori di Spectrum 48 Kbyte che possano 
mandarmi qualche programma per radioamatori. A- 
driano Susta - Via Ressi, 23 - 20125 Milano - Tel. 
02/6882478 


Vendo 4 riviste Sinclair e un libro di programmi per 
ZX81 con relativa cassetta (6 programmi) a sole L. 
18.000. Pagamento contrassegno. Giorgio Garofalo - 
Via Angeloni, 40 - 20161 Milano - Tel. 02/645377 


Vendo ZX Spectrum 48 Kbyte con alimentatore stabiliz¬ 
zato più ZX printer, giochi e manuali inglesi; il tutto per 
la ridicola somma di L. 300.000. Tratto solo con la zona 
di Firenze. Giacomo Covoni - Via del Sansovino - 50142 
Firenze -Tel. 055/711839 


Vendo sistema Spectrum 48 Kbyte più stampante Sei- 
kosha GP50, Interfaccia parlante; come nuovo, corre¬ 
dato di 100 programmi vari a L. 750.000 trattabili. Scri¬ 
vere oppure telefonare ore serali. Riccardo Nicoletti - 
Via della Cernaia, 3 - 50129 Firenze - Tel. 055/48325 


Texas 


Vendo TI 99, Interfaccia parallela, stampante GP500A, 

Extended BASIC, mini memory, Multiplan, word pro¬ 
cessor, box con driver ed altro ancora. Il tutto con 
manuali e moduli SSS, In blocco oppure separatamen¬ 
te. Enrico Chiesa - Via Bruere, 318 - 10098 Rivoli (TO) - 
Tel. 011/9595796 


Vendo TI 99 con manuali, cavetto per registratore, cop¬ 
pia joystick, moduli Extended BASIC, Minimemory, 
Scacchi e Wumpus; manuale Editor/Assembler e libri 
vari a L. 300.000. Massimo Frigento - Via Graziano, 6 - 
00165 Roma - Tel. 06/6222192 


Vendo per TI 99/4A Extended BASIC nuovissimo con 
manuale in Italiano a L. 190.000 più spese postali. 
Inoltre vendo joystick nuovi a L. 40.000 più spese posta¬ 
li. Marco Ballerini - Via P. Mariano Colagrossi, 35 - 
00122 Casal Palocco (RM) - Tel. 5651186 


Vendo TI 99/4A più Extended BASIC con manuale, box 

espansione, 32 Kbyte RAM, disk drive, disk control, 3 
libri in italiano sul TI 99, garanzie da compilare e 300 
programmi su 30 floppy al miglior offerente. Giovanni 
Binda - Via Privata Volta, 14/1 - 22054 Mandello Lario 
(CO) - Tel. 0341/735841 


Per TI 99/4A compro coppia di Joystick in buono stato; 
inoltre compro giochi anche in Extended BASIC. In 
particolare cerco i giochi Sci, Invaders, Camelot. Sono 
disposto a rispondere a tutti. Mandatemi la vostra lista 
con prezzi. Claudio Fameli - Via Leopoldo Bignone, 
27/5 - 16157 Genova-Pra (GE) - Tel. 010/663998 


Vendo modulo Extended BASIC più manuale e cassali. 
Vendo registratore, cassetta, moduli SSS Calcio e Par¬ 
sec, joystick causa passaggio a sistema superiore. 
Michele Tossuti - Via Fogazzaro, 21 -30172 Mestre (VE) 
-Tel. 041/93628 
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Vendo per TI 99/4A Editor Assembler In versione mlnl- 
memory: sono richiesti espansione 32 Kbyte e disk 
drive. Il programma consente , a uo<u.ioho dì file sor¬ 
genti e oggetto compatibili Texas. Telefonare ore 
20.00-21.00. Sebastiano - Milano - Tel. 02/270759 


Cambio, vendo fantastici giochi, utility ed altro in BA¬ 
SIC o BASIC esteso per TI 99/4A. Per informazioni o per 
ricevere la lista dei programmi scrivere a: Antonio 
Sisto - Via Biancardi, è - 20075 Lodi (MI) 


Per TI 99/4A vendo perlpheral box, disk controller, disk 
drive 32 Kbyte RAM, manuali, Extended BASIC, 140 
programmi su dischetto. Vendesi anche separatamen¬ 
te a prezzo trattabile. Valerio Paponi - Via Caffarella, 18 
- 0040 Tor San Lorenzo (RM) - Tel. 06/914057 


Varie 


Vendo stampante Epson TX80 mal usata, ingresso Cen¬ 
tronics, completa di cavo collegamento a computer.più 
interfaccia RS232 per Sharp MZ80K, tutto a L. 600.000. 
Angelo Angeloni - Via D.G.M. Russolillo, 27 - 00138 
Roma-Tel. 06/8401552 


Compro Joystick rotti o Inutilizzabili (solo zona Roma); 
inoltre, a richiesta, monto micro-switch per joystick 
Quickshot II (Spectravideo). Telefonare ore pasti. Ste¬ 
fano Baldoni - Via della Magliana, 277 - 00146 Roma - 
Tel. 06/5271210 


Cambio consolle Atarl VCS 2800 più 5 cassette con 
floppy disk 1541. Inoltre vendo moltissime riviste e libri. 
Chiedere elenco. Giuseppe Corazza - Via Torretta, 22 - 
24100 Bergamo 


Cambio, vendo base Mattel/lntellevlsion con 15 cartuc¬ 
ce e con i comandi Point Master e Quick Stick a L. 
650.000. Oppure cambio con C64 più registratore e 
joystick. Demetrio Trigliozzi - Via Nazionale, 59 - 64037 
Cermignano (TE) - Tel. 0861/66170 


Vendo Sharp MZ-700 come nuovo completo di stam¬ 
pante plotter 4 colori, programmi, videogiochi, a L. 
800.000. Telefonare ore serali. Stefano - Tel. 
0161/68845 


Vendo Colecovislon più alimentatore, Joystick, modulo 
Turbo, le cartucce Mousetrap, Carnivai, Turbo a sole L. 
250.000 trattabili. Annuncio sempre valido. Francesco 
Saporito - Via Citali, 27 - 95123 Catania - Tel. 095/446581 


Per computer MSX vendo cartuccia gioco "Sparkle" a 
L. 15.000 anziché L. 55.000. Emanuele Costa - Via Nino 
Costa, 8 - 10045 Piossasco (TO) - Tel. 011/9064223 


Vendo Altos ACS 8000, 2 floppy 500 Kbyte 8” SFDD, più 
64 Kbyte RAM, CP/M, MBASIC, Hazeltine 1420, stam¬ 
pante TX80B a L. 4.000.000, compresi manuali, cavi e 
Totocalcio Computerizzato, BASIC e W.P. Carlo Mon- 
tecchi - Viale Belvedere, 54/a - 41028 Serramazzoni 
(MO) 


Vendo Sharp MZ-731, plotter e registratore Incorporati, 

predisposto grafica 320x200 e CP/M 2.2, con ampio 
software, a L. 700.000. Antonio Moro - Res. Parco MI 2, 
161 - 20090 Segrate (MI) - Tel. 02/215445 


Vendo Trlumph Adler PC, 2 mesi di vita, con floppy, 
video Philips, CP/M, Wordstar, MBASIC, Logicai, BA¬ 
SIC Interpreter, BASIC Compiler, giochi e programmi 
vari. Vasta documentazione, L. 2.000.000. Roberto, Tel. 
02/2899763 (ore ufficio) 


Vendo Micro N.E. In configurazione massima (64 Kbyte 
RAM, scheda grafica) più 1 drive, contenitore per 2 
drlves, monitor 12" fosfori verdi, rack nero. Possibilità 
di fattura. Tratto possibimentecon la Toscana. Claudio 
Amerizzi - Via Dante, 13 - 50050 Limite sull'Arno (Fi) - 
Tel. 0571/57404 oppure 57664 
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che unisce le caratteristiche di 
un manuale di riferimento a 
quelle di un buon testo didatti¬ 
co di programmazione. 

cod.417D Pag. 216 
Lire 20.500 


Rita Bonetti, 

Luciano Pazzuccòni, 

Fabio Racchi 
COMMODORE 16: 

SEMPRE DI PIÙ 
Un libro sul Commodore 16 per 
approfondire le conoscenze 
sulla macchina e sul suo BA¬ 
SIC. 

cod. 427B Pag. 336 
Lire 35.000 Con cassetta 

David Lawrence 

TECNICHE 

DI PROGRAMMAZIONE 
SUL COMMODORE 64 

L’arte della buona program- 
mazine alla portata di chiun¬ 
que possegga un Commodore 
64. 

cod.575D Pag.176 
Lire 16.500 


Daria Gianni, Carlo Tognoni 

MSX: IL BASIC 

Il primo libro sul BASIC MSX, 



ritagliare (o fotocopiare) e spedire in busta chiusa a: 

GRUPPO EDITORIALE JACKSON - Divisione Libri • Via Rosellim, 12 • 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 













Totale 



□ Pagherò contrassegno al postino il prezzo indicato più L. 3.000 per contributo fisso 
spese di spedizione. 


Condizioni di pagamento con esenzione dei contributo spese di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n. 11666203 a voi intestato 

□ Allego fotocopia di versamento 

n°- su vaglia postale a voi intestato 

* 


Brian Lloyd 

I TUOI AMICI COMMODORE 16 
E PLUS 4 

Anche i computer hanno un 
cuore: impara a programmare 
con i tuoi amici C16 e Plus 4. 

cod. 423B Pag. 168 
Lire 16.000 

Rodnay Zaks 

IL TUO PRIMO COMPUTER 

Una semplice introduzione al 
mondo dei personal orientata 
ad utenti alla loro prima espe¬ 
rienza con il computer. 

cod. 351D Pag. 240 
Lire 25.000 








































An riformai sar%jko 

fil>i 


ARTWORKENVIRONMENT 

I immaginazione informatica 


ARTWORK 

ENVIRONMENT 


ARTWORK ENVIRONMENT, una gamma di prodotti 
software (artwork, brushwork, chartwork), perfetta¬ 
mente integrati, per creare disegni, manipolarli, trasfor¬ 
marli avvalendosi di una varietà cromatica che può rag¬ 
giungere 16 milioni di colori. 

ARTWORK ENVIRONMENT, visualizzazione contempora¬ 
nea anche di 256 colori che possono operare per combinazio¬ 
ne, sovrapposizione, sfumature; la loro apparizione, secondo 
sequenze desiderate, produce effetti di animazione del disegno. 
ARTWORK ENVIRONMENT, grafica con immagini riprese dalla 
telecamera trasferite direttamente al computer, ed abbinamento a 
testi (15 caratteri disponibili) e disegni. 

ARTWORK ENVIRONMENT, memorizzazione del lavoro creativo. Il 

prodotto finale può essere ottenuto su stampante, registrato su nastro, 
con videoregistratore collegato al computer, riprodotto su hard-copy 
RGB direttamente in diapositiva. 

ARTWORK ENVIRONMENT, perchè Artwork, Brushwork, Chartwork 

funzionano in un ambiente integrato, scambiandosi le immagini crea¬ 
te e fornendosi reciprocamente le migliorie che ciascun prodotto è in 
grado di offrire. 

ARTWORK,per disegnare elementi e figure spesso molto complesse, 
utilizzando diversi fogli fra di loro sovrapponibili. 

ARTWORK,grafica tridimensionale per creare solidi, rimuovere linee 
nascoste, ottenere prospettive ed ombreggiature anche in funzione 
delle sorgenti di luce. 

BRUSHWORK, disegno pittorico, creato a mano libera ed elaborato a 
video con una varietà illimitata di pennelli, tratti ed ombreggiature. 
CHARTWORK, grafica manageriale per rappresentare i dati sotto forma 
di aree, diagrammi a barre, a torte od altre figure costruite dall’utente. 
ARTWORK ENVIRONMENT su Personal Computer: funziona su PC 
IBM e compatibili, con minimo 256 K di memoria, e schede grafiche di¬ 
verse. 

ARTWORK ENVIRONMENT, l'immaginazione informatica a disposi¬ 
zione di pubblicitari, stilisti, designers, tecnici video: uno strumento di 
ricerca, di visualizzazione, di memorizzazione, di facile e rapida applica¬ 
zione. 


distributore nazionale di 
ARTWORK ENVIRONMENT 
AUTOCAD 
RAMTEK 


Informatica 


20156 Milano 
viale Certosa 148 
tei. (02) 3010051 (5 linee) 
telex: 323380 SIRIOI 


24100 Bergamo 
via Angelo Maj 16/B 
tei. (035) 223552 


21052 Busto Arsizio 
via Daniele Crespi 1 
tei. (0331) 622274 


Siamo presenti allo SMAU '85 

dal 19 al 24 settembre 1985 

Pad. 13 Salone 1 Posteggi D 33- E 08+ E 06 













